program p56_28b;
var a:array[1..50]of integer;
    n,i,j:byte;
    s:integer;
begin
write('n=');readln(n);
s:=0;
for i:=1 to n do begin
 write(i:3,': ');readln(a[i]);
 inc(s,a[i]);
end;
i:=n;
while i>1 do begin
 inc(n);j:=n;
 while j>i do begin a[j]:=a[j-1];dec(j);end;
 a[i]:=s-a[i-1]-a[i+1];
 dec(i);
end;
writeln;
for i:=1 to n do write(a[i]:5);
readln;
end.