program ct;
uses crt;
var n,i,s : integer;
a : array[1..100] of integer;
begin clrscr;
assign(input,'Lop.TXT');
assign(output,'Lop.OUT');
reset(input); rewrite(output);
readln(n);
s:=0;
for i:=1 to n do read(a[i]);
for i:=1 to n do s:=s+a[i];
writeln(s);
close(input); close(output);
readln
end.