{* Задача 231 *}

Unit ZADACH231;
Interface
Implementation
Begin
 writeln('Дано предложение, заканчивающееся .,!,?. Разделитель слов - пробел. Определить, сколько слов в предложении является перевёртышами и будет ли это число простым');
End.

Program z17;

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