uses crt;
var n,i,j,k:longint;a,b:array[1..1000]of longint;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
for j:=1 to n do
if(i<>j)and(a[i]=a[j])then
begin
inc(k);
b[k]:=a[i];
end;
for i:=1 to k do
for j:=1 to k do
if(i<>j)and(b[i]=b[j])then  b[j]:=low(longint);
FOR I:=1 to k do
if(b[i]<>low(longint))then write(b[i],' ');
readln;
end.

5 sao nha pạn:3

@ KYNGUYEN64 !

*Chương trình nè*

uses crt;
var n:longint; i:longint;

j:longint; k:longint; 

a,b:array[1..1000]of longint;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
for j:=1 to n do
if (i<>j)and(a[i]=a[j])then
begin
inc(k);
b[k]:=a[i];
end;
for i:=1 to k do
for j:=1 to k do
if (i<>j)and(b[i]=b[j])then  b[j]:=low(longint);
for I:=1 to k do
if (b[i]<>low(longint))then write(b[i],' ');
readln;
end.

# NOCOPY

# ARA BOSS RIS

CHÚC BẠN HỌC TỐT !

NHỚ ĐỂ LẠI CHO KYNGUYEN64 CTLHN+5 SAO+CÁM ƠN NHÉ !