var n, kol : integer;

  str : string;

  s : char;

begin

 write('Введите строку ');readln(str);

 write('Введите семвол ');readln(s);

 kol:=0;

 for n:=1 to length(str) do

  if str[n]=s then inc(kol); 

 writeln('В строке "',str,'" символ "',s,'" встречается ',kol,' раз.');

end.