1. начало(в овале)
ввод a,b,min (в паралелограмме)
a<b (в ромбе)
2 стрелки, первая стрелка "нет" и в прямоугольнике min:=b
вторая стрелка "да" и в прямоугольнике min:=a
вывод min (в паралелограмме)
конец(в овале)
2.начало(в овале)
ввод a,b, c, min (в паралелограмме)
a<b (в ромбе)
2 стрелки, первая стрелка "нет" и в прямоугольнике min:=b
вторая стрелка "да" и в прямоугольнике min:=a
min<c (в ромбе)
2 стрелки, первая стрелка "нет" и в прямоугольнике min:=c
вторая стрелка сразу к выводу
вывод min (в паралелограмме)
конец(в овале)
uses Crt;
var S: string;
i, Len, Sum: integer;
begin
ClrScr;
Write(' Slovo = ');
ReadLn(S);
Len:=length(S);
for i:=1 to Len do
if S[i]='c' then
Sum:=Sum+1;
WriteLn(' Colichestwo c = ', Sum);
ReadLn;
end.