13   2  28  45   0  33   9   5  42  11

   6  91   7  11  40   8  17  10   3   1

Const
 m=10;

Var
 A,B,C:Array[1..12] of Integer;
 i:Integer;
 f:text;

Begin
 Assign(f,'lab1.dat');
 Reset(f);
 for i:=1 to m do read(f,A[i]);
 for i:=1 to m do read(f,B[i]);
 Close(f);
 for i:=1 to m do
  begin
   C[i]:=A[i]+B[m-i+1];
   writeln(A[i]:8,B[i]:8,C[i]:8);
  end;
 readln
End.