program xuathien;
uses crt;
var A:array[1..100] of integer;
n,i,j:integer;
begin
clrscr;
write('Nhap so luong phan tu cua day: '); readln(n);
writeln('NHAP GIA TRI TUNG PHAN TU CUA DAY');
for i:=1 to n do
begin
write('phan tu thu ',i,': ');
readln(A[i]);
end;
for i:=1 to n do
begin
B[i]:=1;
for j:=i+1 to n do
if A[i]=A[j] then B[i]:=B[i]+1;
end;
for i:=1 to n do
if B[i]>=2 then write('A[i],' ');
readln
end.
