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.
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.