uses crt;
var a,d:array[1..1000000] of longint;
i,n,max,min:longint;
begin clrscr;
write('nhap n:');
READ(N);
FOR I:=1 to n do read(a[i]);
min:=a[1];
for i:=1 to n do
if a[i]<min then min:=a[i];
max:=a[1];
for i:=1 to n do
if a[i]>max then max:=a[i];
for i:=min to max do
d[i]:=0;
for i:=1 to n do
d[a[i]]:=d[a[i]]+1;
writeln('kq la:');
for i:=min to max do
if d[i]<>0 then writeln(i,'so luong:',d[i]);
readln;
readln;
end.

Program MAX_MIN_AVG;
Uses crt;
Var a:array[1..20] of integer;
i,n,max,min,sum:integer;
Begin
Clrscr;
Writeln('TIM MAX, MIN, AVERAGE CUA MOT DAY SO');
Writeln('---------------------------');
Write('Nhap so phan tu cua day n='); readln(n);
For i:=1 to n do
Begin
      Write('Nhap a[',i,']=');readln(a[i]);
End;
Min:=a[1]; Max:=a[1]; Sum:=0;
For i:=1 to n do
Begin
      If (Min > a[i]) then Min:=a[i];
      If (Max < a[i]) then Max:=a[i];
      Sum :=sum+a[i];
End;
Writeln('Day so vua nhap la: ');
Writeln('-------------------------');
For i:=1 to n do
       Write(a[i]:4);

Readln;
End.