{(c) 2001 Emur http://emur.org}

program nasobeni_matic;
uses crt;
var m1,m2,m3: array [1..12,1..12] of integer;
    k,l,m,i,j,t :integer;       {k,l,m - velikost matic}
    y :integer;                 {souradnice graf. kurzoru}

BEGIN
clrscr; window(22,2,78,25); clrscr;
gotoxy(45,24); write('(C) EmuR 2001'); gotoxy(1,1);
writeln('********* NASOBENI MATIC *********');writeln;
write('Zadej velikost prvni matice:   x _ ');
gotoxy(30,3); read(k); gotoxy(34,3); read(l);
write('Zadej cleny 1. matice: ');
writeln; y:=wherey;
for i:=1 to k do writeln(#179:2,#179:l*4);  {vykresleni mrizky}
for i:=1 to k do                            {vlozeni prvku do matice}
  for j:=1 to l do
    begin
    gotoxy(4*j,i+4);
    read(m1[i,j]);
    end;

writeln; write('Zadej velikost druhe matice: ',l,' x _ '); {druha matice}
y:=wherey; gotoxy(34,y); read(m);
write('Zadej cleny 2. matice: ');
writeln; y:=wherey;
for i:=1 to l do writeln(#179:2,#179:m*4);   {vykresleni mrizky}
for i:=1 to l do                             {vlozeni prvku do matice}
  for j:=1 to m do
    begin
    gotoxy(4*j,y+i-1);
    read(m2[i,j]);
    end;

writeln; m3[1,1]:=0;            {zacatek algoritmu nasobeni matic}
for i:=1 to k do
  for t:=1 to m do
    for j:=1 to l do
      m3[i,t]:=m3[i,t]+m1[i,j]*m2[j,t];

writeln('Soucin matic je matice typu: ',k,' x ',m);
y:=wherey;
for i:=1 to k do writeln(#179:2);  {vykresleni mrizky}
for i:=1 to k do                   {vypsani vysledne matice}
  begin
  for j:=1 to m do
    begin
    gotoxy(4*j,y+i-1);
    write(m3[i,j]);
    end;
  write(#179:2);
  end;
readkey;
END.