uses crt;
var a: array [1..1000,1..1000] of longint;
i,j,m,n,sum:longint;
begin
clrscr;
read(m,n);
for i:=1 to m do
for j:=1 to n do
readln(a[i,j]);
for j:= 1 to n do
begin
sum:= 0;
for i:= 1 to m do
sum:=sum + a[i,j];
Write('Tong cot: ',sum);
end;
for i:= 1 to m do
begin
sum:= 0;
for j := 1 to n do
sum:=sum + a[i,j];
Write('Tong hang: ',sum);
end;
readln;
end.