program File;
uses crt;
var fi,fo:text;
i,n,u,v,s,s1: integer;
a:array[1..100000] of integer;
begin
clrscr;
assign(fi,'CHIPHI.INP');
reset(fi);
readln(fi,n);
for i:=1 to n-1 do
readln(fi,a[i]);
read(fi,u,v);
close(fi);
assign(fo,'CHIPHI.OUT');
rewrite(fo);
for i:=1 to n-1 do
s:=s+a[i];
s1:=u+v;
writeln(fo,s);
write(fo,s1);
close(fo);
readln;
end.
