Product

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
p, q, r, i, k, j: integer;
a,b,c: array[1..100,1..100] of integer;
begin
reset(input, 'product.in');
rewrite(output, 'product.out');
read(p);
read(q);
readln(r);
for i:= 1 to p do
 begin
 for k:= 1 to q do
  begin
  read(a[i,k]);
  end;
  readln;
 end;

for i:= 1 to q do
 begin
 for k:= 1 to r do
  begin
  read(b[i,k]);
  end;
  readln;
 end;

for i:= 1 to p do
 begin
 for k:= 1 to r do
  begin
  j:= 1;
  repeat
   begin
   c[i,k]:= c[i,k] + (a[i,j]* b[j,k]);
   j:= j + 1;
   end
   until j = q + 1;
  end;
 end;

for i:= 1 to p do
 begin
 for k:= 1 to r do
  begin
  write(c[i,k]);
  write(' ');
  end;
  writeln;
 end;
  { TODO -oUser -cConsole Main : Insert code here }
end.