{ Дан текст, определить кол-во слов "кот". }

uses crt;
var a : string;
    i,m,k,n : longint;
 begin
   clrscr;
   write('введите текст ');
   readln(a);
   k:=0;m:=length(a);
   a:=a[m]+'  ';
   for i:=1 to m do
    if a[i+2]='кот'then inc(k);
write('В тексте ',k,' слов кот');
   readln;
 end.