program z1;
 uses crt;
 const n=20;
 var i:integer;
     g:boolean;
 a: array [1..n] of integer;
 function f(i,m:integer):boolean;
  var o:integer;
  begin
   for o:=1 to i do
    begin
     f:=false;
     if a[o]=m then
      begin
       f:=true;
       break;
      end;
    end;
  end;
begin
 randomize;
 for i:=1 to n do
  begin
   a[i]:=random(10);
   repeat
    g:=f(i-1,a[i]);
   until not g;
   write(a[i],' ');
  end;
 End.