uses crt;
var s:string; i,d:longint; kt:boolean;
begin
clrscr;
write('Nhap xau: '); readln(s);
kt:=true;
for i:=1 to length(s) do
if s[i]='k' then
begin
inc(d);
kt:=true;
end
else kt:=false;
if kt then writeln('Ket qua: ',d)
else writeln('KHONG CO');
readln
end.