Solução em Pascal do Problema 3

program Produto;
var
  m, n, nb, p,
  i, j, k: integer;
  Prod: real;
  A, B, C: array [1..50,1..50] of real;
begin
  write ('Entre com o tamanho(mXn) da matriz A: ');
  readln(m,n);
  write ('Digite a matriz A: ');
  for i:=1 to m do for j:=1 to n do read(A[i,j]);
  write ('Entre com o tamanho(nXp) da matriz B: ');
  readln(nb,p);
  if nb<>n then write('Nao existe o produto da matriz A por B!!')
  else
  begin
    write ('Digite a matriz B: ');
    for i:=1 to n do for j:=1 to p do read(B[i,j]);
    i := 1;
    while i<=m do
      begin
        j := 1;
         while j<=p do
          begin
            Prod := 0;
            for k:=1 to n do Prod := Prod + A[i,k]*B[k,j];
            C[i,j] := Prod;
            j := j+1;
            Prod := 0
          end;
        i := i+1
      end;
    writeln ('Matriz A X B =');
    for i:=1 to m do
      begin
        for j:=1 to p do write(C[i,j],' ');
        writeln
      end
  end
end.