Program s;
var str:string; //напомню, что если размер строки не указан, то её длинна = 256
i,words:integer;
begin
writeln('введите строку');
Readln(str);
for i:=1 to length(str) do
begin
if str[i] = #32 then
if (str[i-1] = 'я') and (str[i-2] = 'а') then words:=words+1;
if i = length(str) then
if (str[i] = 'я') and (str[i-1] = 'а') then words:=words+1;
end;
write('слов, оканчивающихся на "ая": ',words);
end.