Задача в Pascal "Квадратная матрица"

const n=3; W=5;

var

b, b2, b3: array [1 ... n, 1 ... n] of Integer;

i, j, k, t: Integer;

begin

{ ... }

for i:=1 to n do for j:=1 to n do begin

t:=0; for k:=1 to n do t:=t+b[i, k]*b[k, j];

b2[i, j]:=t;

end;

for i:=1 to n do for j:=1 to n do begin

t:=0; for k:=1 to n do t:=t+b2[i, k]*b[k, j];

b3[i, j]:=t;

end;

WriteLn ('B^3 - B^2 = ');

for i:=1 to n do begin

for j:=1 to n do Write (' ', b3[i, j]-b2[i, j]:W); WriteLn;

end;

end.