program xxx;
var s1:string[20];
n,q:integer;
begin
q:=-1;
Writeln('Введите слово');
read(s1);
n:=pos('y',s1);
if n>0 then begin
repeat
n:=pos('y',s1);
q:=q+1;
delete(s1,n,1);
until n=0;
end
else
q:=0;
writeln('Кол-во y=',q);
end.

var
 s1: string[20];
 i, q: integer;
begin
 Write('Введите слово: '); readln(s1);
 q := 0;
 for i := 1 to length(s1) do
   if (s1[i] = 'y') and (not odd(i)) then inc(q);
 writeln('Кол-во y=',q);
end.

n:=pos('y',s1);
if n>0 then begin
repeat
n:=pos('y',s1);
q:=q+1;
delete(s1,n,1);