Program BTT;
Uses crt;
Const S='HOA';
Var St: String;
i,d: longint;
Begin
Clrscr;
Write('Nhap xau ki tu: '); Readln(St);
For i:=1 to length(St) do
St[i]:=Upcase(St[i]);
d:=0;
While Pos(S,St)<>0 do
Begin
inc(d);
Delete(St,Pos(S,St),4);
End;
Write('Co ',d,' tu "hoa"');
Readln
End.