{* Задача 122 *}

Unit ZADACH122;
Interface
Implementation
Begin
 writeln('Дан текст. Сколько в нём слов "что". ');
End.

Program zadach122;

Uses zadach122.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключаем внешние файлы *}
Var {* Необходимые переменные *}
  a : String;
  i : longint;
  l : longint;
  k : longint;
Begin
  clrscr; {* Очистка экрана *}
  write('введите предложение: ');
  readln(a);
  l := length(a);
  m :
  For i := 1 To l Do {* Увеличиваем i от 1 до l с шагом 1 *}
    If (a[i] = 'ч')And(a[i + 1] = 'т')And(a[i + 2] = 'о') Then
    Begin
      l := l - 3;
      delete(a, i, 3);
      inc(k); {* Увеличиваем k на 1 *}
      Goto m;
    End;
  write('кол-во слов "что": ', k);
  readln; {* Приостановка программы. Ожидание Enter *}
End.