Даны натуральное число n, символы S1…

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.