Procedures and Functions  115  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  2  0  0  2  3  2  1  -3  -1  -2  2  1  6  1  -9  3  2  1  10  -4  4  -2 