Напишите программу, которая вводит символьную строку и определяет, Как узнать сколько раз в ней встречается буква «Ю». Пример:Введите строку: АЮАЮАЮЮБукв "Ю": 4

const p='юЮ';

var s:string; i,n:integer;

begin

writeln('Текст: '); n:=0; readln(s);

for i:=1 to length(s) do if pos(s[i],p)<>0 then inc(n);

writeln(n); readln

end.