const fi='dayso.inp';
fo='dayso.out';
var f1,f2:text;
a,b:array[1..100000]of integer;
i,n,dem,j,kt,t,dem1:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(f2,'Tong cac phan tu trong day so la: ',t);
b[1]:=a[1];
dem:=1;
for i:=1 to n do
begin
kt:=0;
for j:=1 to dem do
if a[i]=b[j] then kt:=1;
if kt=0 then
begin
inc(dem);
b[dem]:=a[i];
end;
end;
for i:=1 to dem do
begin
dem1:=0;
for j:=1 to n do
if b[i]=a[j] then inc(dem1);
writeln(f2,b[i],' xuat hien ',dem1,' lan');
end;
close(f1);
close(f2);
end.

uses crt;
const max=1000;
var f,f1:text;
        a,sl:array[1..100000] of int64;
        n,i,j,s:longint;
begin
        clrscr;
        assign(f,'DAYSO.INP'); reset(f);
        assign(f1,'DAYSO.OUT'); rewrite(f1);
        readln(f,n);
        for i:=1 to n do read(f,a[i]);
        for i:=1 to max do sl[i]:=0;
        for i:=1 to n do
                begin
                        inc(sl[a[i]]);
                        inc(s,a[i]);
                end;
        writeln(f1,s);
        for i:=1 to max do if sl[i] > 0 then writeln(f1,i,':',sl[i]);
        close(f);
        close(f1);
        readln
end.