ЧТО ДЕЛАЕТ ЭТА ПРОГРАММА?procedure vvod(var st:string[10]; c:string);  begin  writeln('Ввести'+' '+c);  readln(st);  end;  function kol(c:string;st:string):integer;  var  k,i:integer;  begin  k:=0;  i:=1;  while i меньше =lengt...

ЧТО ДЕЛАЕТ ЭТА ПРОГРАММА? procedure vvod(var st:string[10]; c:string);   begin  writeln('Ввести'+' '+c);   readln(st);   end;   function kol(c:string;st:string):integer;   var  k,i:integer;   begin  k:=0;   i:=1;   while i<=length(st) do   begin  if copy(st,i,1)=c then   k:=k+1;   i:=i+1;   end;    kol:=k;   end;  var  s,s1,s2:string[10];  Begin  vvod(s,'строку');   vvod(s1,'символ первый');   vvod(s2,'символ второй');   if kol(s1,s) >kol(s2,s) then   writeln('Символ ',s1,' встречается в строке ',s, kol(s1,s):4,' раз. Это >, чем встречается ',s2)   else   if kol(s2,s) >kol(s1,s) then   writeln('Символ ',s2,' встречается в строке ',s, kol(s2,s):4,' раз. Это >, чем встречается ',s1)   else   writeln('Количество символов ',s1,' и ',s2,' в строке ',s,' одинаково и =',kol(s1,s):4) ;  end.