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 . 

