program ideone;
Const
M=3;
N=3;
Var
A:array[1..N,1..M] Of integer;
I,S,J:integer;
begin
For I:=1 to N do
For J:=1 to M do
Read(A[I,J]);
For J:=1 to M do
Begin
S:=0;
For I:=1 to N do
S:=S+A[I,J];
Write(S,' ')
End;
For J:=1 to M do
Begin
S:=0;
For I:=1 to N do
S:=S+A[I,J];
For J:=1 to M do
Begin
S:=0;
For I:=1 to N do
S:=S+A[I,J];
end.
cHJvZ3JhbSBpZGVvbmU7CkNvbnN0CglNPTM7CglOPTM7ClZhcgoJQTphcnJheVsxLi5OLDEuLk1dIE9mIGludGVnZXI7CglJLFMsSjppbnRlZ2VyOwpiZWdpbgoJRm9yIEk6PTEgdG8gTiBkbwoJCUZvciBKOj0xIHRvIE0gZG8KCQkJUmVhZChBW0ksSl0pOwoJRm9yIEo6PTEgdG8gTSBkbyAKCUJlZ2luCgkJUzo9MDsKCQlGb3IgSTo9MSB0byBOIGRvCgkJCVM6PVMrQVtJLEpdOwoJCVdyaXRlKFMsJyAnKQkKCUVuZDsKCUZvciBKOj0xIHRvIE0gZG8gCglCZWdpbgoJCVM6PTA7CgkJRm9yIEk6PTEgdG8gTiBkbwoJCQlTOj1TK0FbSSxKXTsKCUZvciBKOj0xIHRvIE0gZG8gCglCZWdpbgoJCVM6PTA7CgkJRm9yIEk6PTEgdG8gTiBkbwoJCQlTOj1TK0FbSSxKXTsJCQplbmQu