Листинг

program z60;

{Дан текст опред.в нем кол. слов 'кот'}

uses crt;

var t,a:string;i,m,k:integer;

 begin

  clrscr;

   write('введите текст t=');readln(t);

  k:=0;m:=length(t);

  for i:=1 to m+3 do

   begin

    a:=copy(t,i,i+2);{кооп. буквы с i по i+2}

     if (a='кот')

      then k:=k+1;

   end;

   write('слов кот ',k);

  readln;

 end.