Program StrokABC; 

uses Crt;
var d,n,i,k:integer;

       s:string;
begin
     clrscr;
      writeln('Введите n:');
       readln(n);
       repeat
           clrscr;
           readln(s);
      until length(s)=n;

      d:= length(s);
      for i:=1 to d do
      if (s[i]='a')and(s[i+1]='b')and(s[i+2]='c') then k:=k+1;
          writeln('строка abc входит в данную строку ',k,' раз');

        readkey;  
end.