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]<->-‘ ‘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.