{* Задача 221 *}

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

Program zadach221;

Uses zadach221.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Объявление переменных *}
  k  : longint;
  i  : longint;
  l  : longint;
  fl : longint;
  j  : longint;
  ll : longint;
  n  : longint;
  s  : longint;
  a  : String;
  b  : Array [1..50] Of longint;
Begin
  clrscr; {* Очищаем экран *}
  textcolor(11); {* Выбрать Светло-сине-зеленый цвет текста *}
  write('введите текст: ');
  readln(a);
  write('любое число: '  );
  readln(ll);
  l := length(a);
  If (a[l]'.')Or(a[l]'!')Or(a[l]'?') Then
  Begin
    a[l + 1] := ' ';
    i              nc(l);
  End;
  Else a[l] := ' ';
    For i := 1 To l Do {* Увеличиваем i от 1 до l с шагом 1 *}
      If (a[i] = 'т') Then
        inc(s); {* Увеличиваем s на 1 *}
  b[1] := 2;
  n := 3;
  j := 1;
  fl := 0;
  m :
  While n1 Do
    If s Mod b[i] = 0 Then
    Begin
      inc(k); {* Увеличиваем k на 1 *}
      s := s Div b[i];
    End;
    Else inc(i); {* Увеличиваем i на 1 *}
      If ll = k Then
        write('равно');
  If llk Then
    write('меньше');
  readln; {* Приостановка программы. Ожидание Enter *}
End.