PROGRAM TAN_SUAT;
CONST FI='TANXUAT.INP';
      FO='TANXUAT.OUT';
VAR B:ARRAY[1..10000] OF LONGINT;
    N,I,TAM,MAX:LONGINT;
    F:TEXT;
BEGIN
 ASSIGN(F,FI);
 RESET(F);
 READLN(F,N);
 FILLCHAR(B,SIZEOF(B),0);
 FOR I:=1 TO N DO
  BEGIN
  READ(F,TAM);
  IF TAM>MAX THEN MAX:=TAM;
  INC(B[TAM]);
  END;
 CLOSE(F);
 ASSIGN(F,FO);
 REWRITE(F);
 FOR I:=1 TO MAX DO
 IF B[I]>1 THEN WRITELN(F,I,' ',B[I]);
 CLOSE(F);
END.

program no_1;uses crt;var a,d,b,c:array[1..100] of integer;var i,n,j,t,s,k,tg,th,id:integer;kt:boolean;beginclrscr;kt:=true;write('Nhap n la:');readln(n);for i:=1 to n do    begin    write('a[',i,']=');    readln(a[i]);    end;for i:=1 to n dod[i]:=1;for i:=1 to n-1 dobeginj:=i+1;while j<=n doif a[i]=a[j] then begin             for k:=j to n do             a[k]:=a[k+1];             n:=n-1;             d[i]:=d[i]+1;             end else j:=j+1;if d[i]>1 then b[i]:=d[i];end;for i:=1 to n-1 dofor j:=i+1 to n doif b[i]<b[j] then   begin   tg:=b[i];   b[i]:=b[j];   b[j]:=tg;   th:=a[i];   a[i]:=a[j];   a[j]:=th;   end;k:=0;if n=1 then writeln('Phan tu xuat hien nhieu nhat la: ',a[1]) elseif b[1]=b[n] then writeln('Cac phan tu xuat hien bang nhau va xuat hien ',b[n],' lan') else  begin  for i:=1 to n do  if b[1]=b[i] then k:=k+1;  Writeln('Co ',k,' phan tu xuat hien nhieu nhat va xuat hien ',k,' lan');  writeln('Phan tu xuat hien nhieu nhat la:');  for i:=1 to n do  if b[1]=b[i] then  write(a[i]:4);  end;readlnend.