Off[General::spell1]; 
Clear[Cond,H0,n];
Cond[H0_] :=
Module[{H, invH, n, h, g,x},
     H=H0;
     n=Length[H];
     invH=Inverse[H];
  Module[{i,j},
   h=Table[0,{n}];
   g=Table[0,{n}];
     For[i=1,i<=n,i++,
       h[[i]]=Sum[Abs[H[[i,j]]],    				{j,1,n}] ]; 
     For[i=1,i<=n,i++,
       g[[i]]=Sum[Abs[invH[[i,j]]], 				{j,1,n}] ]; 
  ]; 
x= Max[Table[h[[i]], {i,1,n} ]]* 
	 Max[Table[g[[i]], {i,1,n} ]];  
Return[x]];
On[General::spell1];

Clear[H,n];
H[n_]:=Table[1/(i+j+1), {i,0,n}, {j,0,n}];
Do[Print[StringForm["n=``,     Cond[Hn]=
`` " , n , Cond[H[n]]//N  ]], 
   {n, 1, 10}]

Clear[H, n]; 
H[n_] := Table[i^j, {i,1,n+1}, {j,0,n}];
Do[Print[StringForm["n=``    Cond[Hn]=
`` " ,n , Cond[H[n]]//N  ]], 
  {n, 1, 10}]