uses crt;
const
Na=1000;
var
a,b,c,d,n,i,j,k:integer;
ar,ar1:array[1..Na] of integer;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(ar[i]);
for i:=1 to n do
if ar[i]<0 then
begin
inc(j);
ar1[j]:=ar[i];
end;
for i:=1 to j do
write(ar1[i]:4);
end.
uses crt;
const
Na=1000;
var
a,b,c,d,n,i,j,k:integer;
ar,ar1:array[1..Na] of integer;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
ar[i]:=random(100);
ar[i:=ar[i]-1;
end;
for i:=1 to n do
if ar[i]<0 then
begin
inc(j);
ar1[j]:=ar[i];
end;
for i:=1 to j do
write(ar1[i]:4);
end.