---

program count_words_ending_a;
uses crt;
var
  s: string;
  i, count: integer;
begin
  write('Введите текст: ');
  readln(s);
  
  count := 0;
  for i := 1 to length(s) do
  begin
    // Если текущий символ - буква 'а', и при этом 
    // это либо конец строки, либо следующий символ - пробел
    if (s[i] = 'а') and ((i = length(s)) or (s[i+1] = ' ')) then
      count := count + 1;
  end;
  
  writeln('Количество слов, оканчивающихся на "а": ', count);
end.