var
f,h:file of integer;
i,a:integer;
begin
Assign(f,'f.dat');
Rewrite(f);
randomize;
begin
a:=-5+random(11);
write(a,' ');
end;
Assign(h,'h.dat');
rewrite(h);
Seek(f, 0);
while (not Eof(f)) do
begin
read(f,a);
if (a>=0) then
write(h,a);
end;
seek (f,0);
while (not eof(f)) do
begin
read(f,a);
if (a<0) then
write(h,a)
end;
Seek(h,0);
Writeln;
while (not Eof(h)) do
begin
write(h,a);
write(a, ' ');
end;
Close(f);
Close(h);
readln;
end.