Var B: array [1..10] of integer;
i, n, s: of integer;
Begin
S:=0;
For i:=1 to 10 do
Readln(a[i]);
For i:=1 to n do
S:=s+a[i];
Writeln(s);
End.
Var B: array [1..10] of integer;
i, n, s: of integer;
Begin
S:=0;
For i:=1 to 10 do
Readln(a[i]);
For i:=1 to n do
S:=s+a[i];
Writeln(s);
End.