var

 str: string;

 i, count: integer;

begin

 count := 0;

 writeln('Введите строку: ');

 readln(str);

 for i := 2 to length(str) do

   if ((str[i] = ' ') or (str[i] = '.') or (str[i] = ',') or (str[i] = '?') or (str[i] = '!')) and (str[i - 1] = 'a') then

     inc(count);

 writeln('Количество слов, оканчивающихся на букву a: ', count);

end.