uses crt;
var st:string;
t:char;
d,i,dem:integer;
begin
clrscr;
write('nhap xau:'); readln(st);
d:=length(st);
write('nhap ki tu:'); readln(t);
dem:=0;
for i:=1 to d do
if st[i]=t then inc(dem);
writeln('Trong xau co ',dem,' ki tu ',t);
readln;
end.