Строки, задание
 

В заданном предложении подсчитать, каких букв встречается больше „к“ или „р“.

язык Паскаль

var s:string;
i,k,p:integer;
begin
Writeln('String : '); Readln(s);
k:=0; p:=0;
for i:=1 to Length(s) do
if s[i]='к' then Inc(k)
else
if s[i]='р' then Inc(p);
Writeln;
Writeln('k = ',k);
Writeln;
Writeln('p = ',p);
Readln;
end.