program AAA;
uses crt;
var b,c:array[1..8,1..8]of integer;
    i,j,s:integer;
begin
     for i:=1 to 8 do
     for j:=1 to 8 do
     begin
          write('b[',i,',',j,']=');
          readln(b[i,j]);
          s:=s+b[i,j];
     end;
     for i:=1 to 8 do
     for j:=1 to 8 do
     if b[i,j]<=(s/64) then
     c[i,j]:=b[i,j] else
     c[i,j]:=0;
     for i:=1 to 8 do
     begin
          for j:=1 to 8 do
          write(b[i,j],' ');
          writeln;
     end;
     writeln('sr.=',s/64);
     for i:=1 to 8 do
     begin
          for j:=1 to 8 do
          write(c[i,j],' ');
          writeln;
     end;
end.