Const Fi='Input.TXT';
Fo='Output.TXT';
Var f,g: text;
A: array[1..1000] of longint;
n,i,s: longint;
Begin
Assign(f,Fi); Reset(f);
Assign(g,Fo); Rewrite(g);
Readln(f,n);
s:=0;
For i:=1 to n do
Begin
Read(f,A[i]);
s:=s+A[i];
End;
Write(g,s);
Close(f);
Close(g);
End.