Var  A:Array[1..1000] Of Integer;
       n,i,dem,d:Longint;
 Begin
    Fillchar(A,sizeof(A),0);
    Readln(n);
     For i:=1 to n do
        Begin
            Read(d);
            dem:=dem+d;

            A[d]:=A[d]+1;
        End;
        Writeln('Tong day la: ',dem);
      For i:=1 to 1000 do If A[i]>0 then Writeln(i,': ',A[i],' lan');
    Readln;
   End.

uses crt;
var n,i,s,d,t,j:longint;
    a:array[1..1001]of longint;
begin
clrscr;
    readln(n);
    for i:=1 to n do
        begin
            read(a[i]);
            inc(s,a[i]);
        end;
    writeln('-Tong cac phan tu la: ',s);
    for i:=1 to n-1 do
        for j:=i+1 to n do
            if a[i]>a[j] then
                begin
                    t:=a[i];a[i]:=a[j];a[j]:=t;
                end;
    i:=1;
    writeln('-So lan xuat hien cua cac phan tu: '); 
    while i<=n do
        begin
            write(a[i],': ');
            d:=1;
            while a[i]=a[i+1] do begin inc(d); inc(i) end;
            inc(i);
            writeln(d,' lan');
        end;
readln;readln;
end.