Program Massiv;
var a:array [1..10] of integer;
var c: integer;
i,j:integer;
Begin
For i:=1 to 10 do Readln (a[i]);
For i:=1 to 10 do Writeln (a[i], ' ');
For i:=1 to 10 do c:=c+a[i];
Writeln (c)
end.