Var
 f1,f2,f3:Text;
 i:Byte;
 m:Integer;
Begin
 Assign(f1,'file1.txt');
 Rewrite(f1);
 Assign(f2,'file2.txt');
 Rewrite(f2);
 Assign(f3,'file3.txt');
 Rewrite(f3);
 Randomize;
 for i:=1 to 20 do Write(f1, -20+Random(40),' ');
 Close(f1);
 Reset(f1);
 for i:=1 to 20 do
  begin
   Read(f1,m);
   if m<0 then
    Write(f3, m,' ')
   else
    Write(f2, m,' ');
  end;
 Close(f1);
 Close(f2);
 Close(f3);
End.