{* Задача 300 *}

Unit ZADACH300;
Interface
Implementation
Begin
 writeln('Дан набор слов, разделенных точкой с запятой (;). Набор заканчивается двоеточием (:). Определить сколько в нем слов, заканчивающихся буквой a.');
End.

Program zadach300;

Uses zadach300.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Объявление переменных *}
  s : String;
  a : integer;
  j : integer;
Begin
  clrscr; {* Очищаем экран *}
  a := 0;
  writeln('Введите набор слов, ');
  writeln('разделенных ";
  " и оканчивающийся " : " ');
  readln(s);
  For j := 1 To length(s) Do {* Цикл для j => [1 .. length(s)] *}
  Begin
    If (s[j] = 'a') And (s[j + 1] = ';
      ') Then
    a := a + 1;
  End;
  writeln('Слов, заканчивающихся буквой "а"');
  writeln('в наборе содержится ', a, ' штук');
  readln
End.