program string_11;
var
s: string;
a, b, c, i: integer;
begin
write('введите строку');
readln(s);
a := 0;
b := 0;
c := 0;
for i := 1 to length(s) do
begin
if s[i] = 'r' then
a := a + 1;
if s[i] = 'k' then
b := b + 1;
if s[i] = 't' then
c := c + 1
end;
writeln('количество букв r=', a);
writeln('количество букв k=', b);
writeln('количество букв t=', c);
readln;
end.