program randomeeee;
uses crt;
var
   x : Array  of integer;
   t : Array  of boolean;
   a,b,c,d : Integer;
begin
clrscr;
randomize;
   for a:=1 to 10 do
     begin
       c:=1;
       while c=1 do
         begin
           b:=random((10)+1);
           if t=false then
             c:=0;
          end;
         writeln ('Enter a number');
         readln (x);
         t:=true;
     end;
     writeln;
      for d:=1 to 10 do
        begin
           writeln ('num',d,' = ',x);
        end;
readln;
end.