Nhập số n và các phần tử a[i] đếm xem mỗi phần tử xuất hiện bao nhiêu lần và sắp xếp các phần tử theo thứ tự tăng dần VD XH.INP XH.OUT 10 1 3 1 2 1 3 3 3 1 5 1 5 7 1 3 9 1 9 1 3 2 7 HELPPPPP

var a,res,cnt:array[0..10000007] of longint;
    i,n,j,d,c,tam:longint;
begin
assign(input,'XH.inp');reset(input);
assign(output,'XH.out');rewrite(output);
readln(n);
for i := 1 to n do readln(a[i]);
for i := 1 to n - 1 do
 for j := i + 1 to n do
    if a[i] > a[j] then
     begin
      tam := a[i];
      a[i] := a[j];
      a[j] := tam;
     end;
c := 0; d := 1;  a[n+1] := maxlongint;
for i := 2 to n + 1 do
 if a[i] = a[i-1] then inc(d)
 else
   begin
     inc(c);
     res[c] := a[i-1];
     cnt[c] := d;
     d := 1;
   end;
for i := 1 to c do
writeln(res[i],#32,cnt[i]);
close(input);close(output);
end.