Program string_18-

uses crt-

var a,b : string-

s,ss,i,l,l2 : 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]=’ ‘)

then begin

delete(a,i,1)-

l:=l-1-

goto m-

end-

if a[l]&lt-&gt-‘ ‘then begin inc(l)-a[l]:=’ ‘- end-

for i:=1 to l do

if a[i]=’ ‘then begin

l2:=length(b)-

if (b[l2]=’я’)and(b[l2-1]=’а’)then

writeln(b)else inc(s)-b:=»-inc(ss)-

end

else b:=b+a[i]-

if s=ss then write(‘таких слов не обнаружено!’)-

readln-

end.