program xjkhjh;
uses crt;Var T: string;
i, summ: byte;
Begin
Writeln('Введи текст: ');
Readln(T);
summ:=0;
For i:=1 to length(T) do
If T[i] in ['y','x'] then inc(summ);
Writeln('Сумма = ',summ);
End.
program xjkhjh;
uses crt;
Var T: string;
i, summ: byte;
Begin
Writeln('Введи текст: ');
Readln(T);
summ:=0;
For i:=1 to length(T) do
If T[i] in ['y','x'] then inc(summ);
Writeln('Сумма = ',summ);
End.