program dem_c;
uses crt;
var s:string;
c:char;
i,d:integer;
begin
clrscr;
write('Nhap xau: '); readln(S);
write('Nhap ki tu c: '); readln(c);
d:=0;
for i:=1 to length(s) do
if s[i]=c then d:=d+1;
write('Co ',d,' ki tu ',c,' trong xau ',s);
readln;
end.