var s:string;
k:char;
p,i:integer;
begin
write('enter s ');
readln (s);
write('enter k ');
readln (k);
p:=0;
for i:=1 to length(s) do begin
if s[i]=k then inc(p);
end;
write (p);
readln
end.