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

Var s: string;

n, k: integer;

begin

write ('строка: ') ; readln (s) ;

k:=0;

n:=pos ('abc', s) ;

if n>0 then

repeat

k:=k+1;

delete (s, 1, n+2) ;

n:=pos ('abc', s) ;

until n=0;

writeln (k) ;

end.

строка: fdrsabcde dsabcjhy abckjuy

3

строка: dscabgfre fhygdte

0