Nếu có sai thì nói mình nhé.
===========================
program Hello;
var s:array[1..32000] of integer;
n,i,a:integer;
f:text;
begin
assign(f,'TS.INP');reset(f);
readln(f,n);
for i:= 1 to n do
begin
read(f,a);
inc(s[a]);
end;
close(f);
assign(f,'TS.OUT');rewrite(f);
for i:= 1 to 32000 do
if s[i] > 1 then
writeln(f, i, ' ', s[i]);
close(f);
readln;
readln;
end.
