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.