program gromov;
uses CRT;
var
  r,k,s,a,b,c:integer;
  sk:array[1..3,1..3] of integer;
begin
writeln('Ievadi skaitlus,spidi entre,lai sakt');
readln;
Clrscr;
for r:=1 to 3 do
 For k:=1 to 3 do
  Begin
    gotoxy(r*8+1,k*3+3);
    readln(sk[r,k]);
    End;
for k:=1 to 3 do
 begin
   a:=0;
for r:=1 to 3 do
 begin
 a:=a+sk[r,k];
   gotoxy(k*8+1,20);
 writeln(a);
  end;
   end;
 readln;
end.