Program random;
var x :integer;
 y :  array[1..360] of integer;
 begin
 randomize;
 for x:=1 to 360 do
  y[x] :=  random(100);
  for x:=1 to 360 do
  write (y[x],' ');
  end.