Program Hotboy ;
Uses crt;
var Hb:string;
i,d:byte;
k:char;
Begin
Clrscr;
D:=0;
Write('Nhap xau tu ban phim ');
Readln(Hb);
Write('nhap ki tu bat ki');
Readln(k);
For i:=1 to length(Hb) do
if (Hb[i]=k ) then inc(d);
write('So ki tu ',k,' trong xau do la: ',d);
Readln
End.