var
s,s2:string;
i,x:integer;
begin
writeln('Введите строку');
readln(s);
s:=s+' ';
for i:=1 to length(s) do
begin
X:=POS(' ',s);
s2:=copy(s,1,x-1);
delete(s,1,x);
if (upcase(s2[1])='A')and(length(s2)>=5) then write(s2+' ');
end;
end.
var
s,s2:string;
i,x:integer;
begin
writeln('Введите строку');
readln(s);
s:=s+' ';
for i:=1 to length(s) do
begin
X:=POS(' ',s);
s2:=copy(s,1,x-1);
delete(s,1,x);
if (upcase(s2[1])='A')and(length(s2)>=5) then write(s2+' ');
end;
end.