const N = 1000;
type massiv = array [1..N] of integer;
procedure ReadMas(var mas: massiv; k: integer);
var i: integer;
begin
  randomize;
  for i:=1 to k do mas[i]:=random(100);
end;
var mas: massiv;
    k,i: integer;
begin
   write('>');
   readln(k);
   ReadMas(mas,k);
   for i:=1 to k do write(mas[i],'  ');
   readln
end.