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.