Unnamed

program ind4;
const
   maxn	= 6;
var
   a	  : array [1..maxn,1..maxn] of integer;
   b	  : array [1..maxn+maxn+1] of integer;
   srstr  : integer;
   srstol : integer;
   sr	  : integer;
   k1,k2  : integer;
begin
   srstr := 0;
   srstol := 0;
   sr := 0;
{--------------------------------------}
   for k1 := 1 to maxn do begin
      for k2 := 1 to maxn do begin
	 random(10);
	 a[k1][k2] := random(maxn);
	 write(a[k1][k2],' ');
      end;
      writeln;
   end;
{--------------------------------------}
   for k1 := 1 to maxn do begin
      for k2 := 1 to maxn do begin
	 srstr := srstr + a[k1][k2];
	 srstol := srstol + a[k2][k1];
      end;
      sr := sr + srstr;
      write(k1,' : ',srstr/maxn); srstr := 0;
      writeln(' ',k1+maxn,' : ',srstol/maxn); srstol := 0;
   end;
{--------------------------------------}
   writeln(maxn+maxn+1,' : ',sr/sqr(maxn));

   
end.