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.