Program string_19-

uses crt-

var a : string-

i,l,k : longint-

label m-

begin

clrscr-

write(‘введите предложение: ‘)-readln(a)-

l:=length(a)-

m : for i:=1 to l do

if (a[i]=’ч’)and(a[i+1]=’т’)and(a[i+2]=’о’)then

begin

l:=l-3-delete(a,i,3)-

inc(k)-goto m-

end-

write(‘кол-во слов «что»: ‘,k)-

readln-

end.