Var
  i, n: Integer;
  a: Array[1..100] Of Integer;
 
Procedure ReadData;
Begin
  ReadLn(n);
  Write('0:  ');
  For i:= 1 to n do
    Begin
      Read(a[i]);
    End;
End;
 
Procedure Move;
Var
  x: Array[1..100] Of Integer;
Begin
  x[1]:=2*a[1]-a[n]-a[2];
  If (x[1] < 0) Then
    Begin
      x[1] := -x[1];
    End;
  Write(x[1], ' ');
  For i := 2 to n-1 Do
    Begin
      x[i] := 2*a[i]-a[i-1]-a[i+1];
      If (x[i] < 0) Then
        Begin
          x[i] := -x[i];
        End;
      Write(x[i], ' ');
    End;
  x[n] := 2*a[n]-a[n-1]-a[1];
  If (x[n] < 0) Then
    Begin
      x[n] := -x[n];
    End;
  For i := 1 To n Do
    Begin
      a[1] := x[1];
      a[i] := x[i];
      a[n] := x[n];
    End;
  Write(a[n]);
  WriteLn;
End;
 
Var
  k: Integer;
Begin
  ReadData;
  For k := 1 To n Do
    Begin
      Write(k, ':  ');
      Move;
    End;
  ReadLn;
  ReadLn;
End.