{* Задача 229 *}

Unit ZADACH229;
Interface
Implementation
Begin
 writeln('Дано слово. Найти, сколько раз буква "a" встречается в этом слове. Будет ли это число простым');
End.

Program zadach229;

Uses zadach229.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Необходимые переменные *}
  k  : longint;
  i  : longint;
  l  : longint;
  fl : longint;
  a  : String;
Begin
  clrscr; {* Стираем всё с экрана *}
  textcolor(11); {* Выбрать Светло-сине-зеленый цвет текста *}
  write('введите текст: ');
  readln(a);
  l := length(a);
  k := 0;
  fl := 0;
  For i := 1 To l Do {* Цикл для i => [1 .. l] *}
    If (a[i] = 'a')Or(a[i] = 'а') Then
      inc(k); {* k++ *}
  writeln('кол-во:', k);
  If k = 2 Then
  Begin
    write('простое');
    readln; {* Приостановка программы. Ожидание Enter *}
    halt;
  End;
  If k = 0 Then
  Begin
    write('не простое');
    readln; {* Ждем подтверждения пользователя *}
    halt;
  End;
  For i := 2 To k - 1 Do {* Цикл для i => [2 .. k] *}
    If k Mod i = 0 Then
      fl := 1;
  If fl = 0 Then
    write('простое')
  Else write('не простое');
    readln; {* Ждем подтверждения пользователя *}
End.