uses crt-

vara,b,c,x,y:integer-

dl,ch,n,cha,chb,chv:integer-

text,text1:string-

aa,bb,vv,cc:char-

label 1,2,3-

begin

clrscr-

writeln(‘какие символы будем считать(a,b,c-через Enter)’)-

readln(aa)-

readln(bb)-

readln(vv)-

writeln(‘Введите текст’)-

readln(text)-

dl:=length(text)-

text1:=text-

cha:=0-

chb:=0-

chv:=0-

n:=pos(aa,text)-

1:if n&gt-0 then

begin

cha:=cha+1-

Delete(text1,1,n)-

dl:=length(text1)-

if dl&gt-0 then

begin

n:=pos(aa,text1)-

goto 1-

end

end-

text1:=text-

n:=pos(bb,text1)-

2:if n&gt-0 then

begin

chb:=chb+1-

Delete(text1,1,n)-

dl:=length(text1)-

if dl&gt-0 then

begin

n:=pos(bb,text1)-

goto 2-

end

end-

text1:=text-

n:=pos(vv,text1)-

3:if n&gt-0 then

begin

chv:=chv+1-

Delete(text1,1,n)-

dl:=length(text1)-

if dl&gt-0 then

begin

n:=pos(vv,text1)-

goto 3-

end

end-

writeln(‘В предложениии ‘,aa,’ встречается ‘,cha,’раз(а) ‘)-

writeln(‘В предложениии ‘,bb,’ встречается ‘,chb,’раз(а) ‘)-

writeln(‘В предложениии ‘,vv,’ встречается ‘,chv,’раз(а) ‘)-

end.