Const
 N=5;
Var
 A,B,C,D:Array[1..N,1..N] of Integer;
 i,j,k:Integer;
Begin
 Randomize;
 Writeln('Matrix A:            Matrix B:            MatrixC:');
 For i:=1 to N do
  begin
   For j:=1 to N do
    begin
     A[i,j]:=Random(20);
     Write(A[i,j]:3);
    end;
   Write('      ');
   For j:=1 to N do
    begin
     B[i,j]:=Random(20);
     Write(B[i,j]:3);
    end;
   Write('      ');
   For j:=1 to N do
    begin
     C[i,j]:=Random(20);
     Write(C[i,j]:3);
    end;
   Writeln;
  end;
 Writeln;
 Writeln('Result:');
 For i:=1 to N do
  For j:=1 to N do
   begin
    D[i,j]:=A[i,j];
    for k:=1 to N do D[i,j]:=D[i,j]+B[i,k]*C[k,j];
   end;
 For i:=1 to N do
  begin
   For j:=1 to N do Write(D[i,j]:4);
   Writeln;
  end;
 Readln
End.