С клавиатуры вводится строка. Подсчитать сколько раз в нее входит подстрока abc.
Pascal ABC

Var   S:string;   i,k:integer;Begink:=0;Write('Введите строку: ');ReadLn(S);For i:= 1 to Length(S)-2 do    if S[i]='a' then       if S[i+1]='b' then          if S[i+2]='c' then             k:=k+1;WriteLn('Искомое количество: ',k);End.