program matrixok_szorzasa;
uses crt;
TYPE matr=array[1..50,1..50]of word;
     sor=array[0..4] of word;

var
f:text;
abla:matr;
sir:sor;
k,m,n,p,i,j:byte;
                 procedure matr_ki(matrix:matr;x,y:byte);
                    var i,j:byte;
                        begin
                             for i:=1 to x do  begin
                                    for j:=1 to y do
                                              write(matrix[i,j],' ');
                                                     writeln;
                                                           end;
                           writeln;
                              writeln;
                 end;




begin
 for i:=1 to 5 do
  for j:=1 to 5 do
    abla[i,j]:=0;
abla[1,2]:=1;abla[2,3]:=1;abla[3,4]:=1;abla[4,5]:=1;abla[5,3]:=3;abla[5,4]:=2;
{matr_ki(abla,5,5);readln;}
k:=1;
sir[0]=k*1;sir[1]=k*1;sir[2]=k*2;sir[3]=k*3;sir[4]=k*4;




{assign(f,'matrix.in');reset(f);
readln(f,m,n);
for i:=1 to m do
 for j:=1 to n do
   read(f,a[i,j]);

matr_ki(a,m,n);

readln(f,n,p);
for i:=1 to n do
 for j:=1 to p do
   read(f,b[i,j]);
matr_ki(b,n,p);
close(f);

for i:=1 to m do
  for j:=1 to p do begin
    c[i,j]:=0;
     for k:=1 to n do begin
       c[i,j]:=c[i,j]+a[i,k]*b[k,j];
      clrscr;
      textcolor(9);matr_ki(a,m,n);textcolor(11);matr_ki(b,n,p);
      textcolor(13);matr_ki(c,m,p);readln;












     end;
     end;

matr_ki(c,m,p);



      }
readln;
end.