Pascal :

var
a,b,c,d:longint;
n:real;
begin
readln(a);
for b:=1 to a do
begin
read(c);
d:=d+c;
end;
n:=d/a;
writeln(d);
writeln(n:0:2);
end.