паскаль
Определить, как часто встречается определенный символ в строке.
вот начало программы
var st:string;
burger:char;
i,kol:integer;
begin
write('Введи строку ');
readln(st);
write('Введи символ ');
readln(burger);

закончите плз

var s: string;

   i, k: integer;

begin

 writeln('Enter string:');

 readln(s);

 k := 0;

//Вместо Y символ(думаю сможеш прицепить ввод)

 for i := 1 to length(s) do if (s[i] = 'Y') then inc(k);

 write('Quantity of symbol in string is equal to ', k);

 readln

end.