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