var Sum: Integer; I, J, K: Positive; begin if (LoARow <> 1) or (LoACol <> 1) or (LoBRow <> 1) or (LoBCol <> 1) or (LoCRow <> 1) or (LoCCol <> 1) or (HiARow <> HiCRow) or (HiACol <> HiBRow) (HiBCol <> HiCCol) then {error} else for I 1 to HiCRow do begin for J .= 1 to HiCCol do begin Sum := 0; for K := 1 to HiACol do Sum := Sum + A[I,K] * B[K,J]; C [I, J] .- Sum end; end end { Multiply}; begin ReadMatrix (A) ; WriteMatrix (A) ; ReadMatrix(B); WriteMatrix(B); Multiply(A,B,C); WriteMatrix(C) end . or 

## Produces as results: 

1 -2 1 -1 

-1 -2 2 

1 6 1 -9 

2 0 0 2 

3 2 1 

10 -4 4 -2 

3 2 1 -3 

