var
a,b:array [1..100] of integer;
i,z,n,k,x,j:integer;
begin
writeln('Введите длину массива: ');
readln(n);
writeln('Введите элементы массива: ');
for i:=1 to n do
readln(a[i]);
i:=2;
z:=1;
b[1]:=a[1];
while i<=n do
begin
k:=0;
x:=0;
for j:=1 to n do
begin
if a[i]=a[j] then
k:=k+1;
end;
if k=1 then
begin
z:=z+1;
b[z]:=a[i];
end
else
for j:=1 to z do
begin
if a[i]<>b[j] then
x:=x+1;
end;
if x=z then
begin
z:=z+1;
b[z]:=a[i];
end;
i:=i+1;
end;
writeln('Различные элементы массива: ');
for i:=1 to z do
write(b[i]);
readln;
end.