var i, j, n, m: byte;
 a: array [1..20, 1..20] of byte;
begin
 n:=3;
 m:=3;
 for i:=1 to n do
 for j:=1 to m do
begin
 write ('a[',i,',',j,']=');
 read (a[i,j]);
 end;
for i:=1 to n do
 begin
 for j:=1 to m do
 begin
 write (a[i,j]:5);
 a[n+1,j]:=a[n+1,j]+a[i,j];
 a[i,m+1]:=a[i,m+1]+a[i,j];
 end;
 writeln (a[i,m+1] / m:10:1);
 end;
 writeln ('-'*4*m+10*'-');
 for j:=1 to m do write (a[n+1,j] / n:5:1)
end.