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.