program MatrixMultiply;
var
   A,B : array[1..100,1..100] of real;
   i,j,k : integer;
begin
   
   {Init matrices Manual fill
   for i:=1 to 100 do
   begin
      for j:=1 to 100 do
      begin
	 writeln("Dwse timh gia stoixeio (",i,",",j,") tou pinaka:");
	 readln(A[i,j]);
      end;
   end;
   }

   {Init matrices}
   for i:=1 to 100 do
   begin
      for j:=1 to 100 do
      begin
	 A[i,j]:=i**j
      end;
   end;

   {Multiply matrices}
   k:=1;
   for i:=1 to 100 do
   begin
      for j:=1 to 100 do
	 begin
	    B[i,j]:=B[i,j]+A[j,k];
	 end;
      B[i,k]:=B[i,k]-A[i,k];
      k:=k+1;
      writeln(B[i,j]:1:2); {Format output}
   end;
end.