var n, i, a: Longint;

begin
 randomize;
 n := random(1000) + 1;
 writeln(n);
 for i := 1 to n do
  begin
   a := random(2000) - 1000;
   write(a, ' ')
  end;
 writeln
end.
