uses crt;
var s,i: integer;
a : array[1..100] of integer;
begin
assign(input,'Bai tap.inp');
assign(output,'baitap.out');
reset(input); rewrite(output);
for i:=1 to 100 do read(input,a[i]);
for i:=1 to 100 do write(output,a[i]:3);
for i:=1 to 100 do s:=s+a[i];
writeln(output,s);
close(output); close(input);
readln
end.