ЧТО ДЕЛАЕТ ЭТА ПРОГРАММА? procedure vvod (var st: string[10]; c: string); begin writeln ('Ввести'+'+c); readln (st); end;…

ЧТО ДЕЛАЕТ ЭТА ПРОГРАММА? 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.