program cinci;
var i,n,k,j:integer;
    v,a:array[1..100] of integer;
    gasit:boolean;
begin
write('n=');
readln(n);
for i:=1 to n do begin
write('v[',i,']=');
readln(v[i]);
end;

k:=0;
for i:= 1 to n do begin
gasit:=false;
for j:= 1 to k do
if v[i]=a[j] then gasit:=true;
if gasit=false then begin
k:=k+1;
a[k]:=v[i];
end;
end;
if n=k then writeln(' vectorul a fost multime' )
else begin
writeln(' vectorul a fost trans format in multime si acum contine elementele ');
for i:=1 to k do write(a[i],' ');
end;
readln;
end.