{* Задача 163 *}

Unit ZADACH163;
Interface
Implementation
Begin
 writeln('Дан текст опред.в нем кол. слов 'кот'');
End.

Program pas13561;

Uses zadach163.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Необходимые переменные *}
  t : String;
  a : String;
  i : integer;
  m : integer;
  k : integer;
Begin
  clrscr; {* Очищаем экран *}
  write('введите текст t=');
  readln(t);
  k := 0;
  m := length(t);
  For i := 1 To m + 3 Do {* Увеличиваем i от 1 до m с шагом 1 *}
  Begin
    a := copy(t, i, i + 2); {кооп. буквы с i по i+2}
    If (a = 'кот') Then
      k := k + 1;
  End;
  write('слов кот ', k);
  readln; {* Ждем подтверждения пользователя *}
End.