Program p3_3;
uses crt;

const
  n = 20;

var
  f_in, f_out: text;
  i, y,z, zeroes: integer;

begin
  clrscr;
  assign(f_in,'byka.txt');
  rewrite(f_in);
  for i := 1 to n do begin
    y := -5 + random(10);
    write(f_in, y, ' ')
  end;
  assign(f_out,'byka1.txt');
  rewrite(f_out);
  reset(f_in); zeroes := 0;
  while not seekeof(f_in) do begin
    read(f_in, y);
    if y > 0 then write(f_out, z, ' ', y, ' ')
    else if y = 0 then inc(zeroes);
  end;
    y := 0;
  for i := 1 to zeroes do
    write(f_out, y, ' ');
   reset(f_in);
  while not seekeof(f_in) do begin
    read(f_in, y);
    if y < 0 then write(f_out, y, ' ')
  end;
  close(f_out);
  close(f_in);
end.