program stroka;
uses crt;
var s:string;
    i,k,p:integer;
begin
clrscr;
writeln('Ischodnaia stroka:');readln(s);
for i:=1 to length(s) do
    if s[i]='f' then
      begin
        k:=k+1;
        p:=pos('f',s);
      end;
writeln('k=',k);
writeln('p=',p);
readln;
end.