Program tester;
var
  i, k : integer;
  s,c : string;
begin
  k := 0;
  write('строка: ');
  readln(s);
  write('подстрока: ');
  readln(c);
  for i := 1 to length(s) do
    if s[i] = c then inc(k);
  writeln('буква ', c, ' встречается ', k, ' раз')
end.