var s,i,n,j,d:longint;
a:aray[1..1000]of longint;
begin
readln(n);
#tổng
for i:=1 to n do readln(a[i]);
s:=a[1];
for i:=2 to n do s:=s+a[i];
writeln(s);
#lần xuất hiện
for i:=1 to n-1 do
begin
d:=0;
for j:=i+1 to n do
begin if a[i]=a[j] then d:=d+1;
writeln('so lan xuat hien cua ',a[i],' la: ',d);
end;
end;
readln
end.
#sai j thì bảo tui nha