program r7_68;
uses crt;
const Nmax=10;
type TArr=array[1..Nmax] of integer;
var A:TArr;
      i,j,n:integer;
BEGIN
clrscr;
readln(n);
randomize;
i:=1;
while i<=n do begin
 A[i]:=random(n);
 j:=i-1;
 while (j>=1)and (A[j]<>A[i]) do Dec(j);
 if j<1 then Inc(i);
End;
writeln('массив:');
for i:=1 to n do
 write(A[i],' ');
END.