62  Pascal User Manual  program MatrixMul(Input,Output);  { Program 6.3 - Matrix Hultiplication  const  M  =  4;  P  var  I:  1..  M;  J:  1.  .N;  K:  1. .P;  3;  N  =  2;  Sum,  Element:  Integer;  A:  array  [l .. M,  1 .. P]  of Integer;  B:  array  [l .. P,  1 .. N]  of Integer;  C:  array  [l .. M,  1 .. N]  of Integer;  begin  {Assign initial values to A and B:  }  for I  := 1 to M do begin  for K := 1 to P do begin  Read(Input,E1ement);  Write(Output,Element);  A[I,K]  := Element  end;  Write1n(Output)  end;  Writeln(Output);  for K := 1 to P do begin  for J  := 1 to N do begin  Read(Input,E1ement);  Write(Output,Element);  B[K,J]  := Element  end;  Writeln(Output)  end;  Writeln(Output);  { Multiply A and B to ge: C:  for I  := 1 to M do begin  for J  .- 1 to N do begin  Sum  := 0;  for K := 1  to P do  Sum  := Sum + A[I,K]  *  B[K,J];  C[I,J]  :=  Sum;  Writ,=(Output,Sum)  end;  Writeln(Output)  end;  Writeln(Output)  end . 