{* Умножение матриц *}

Unit MATRPR;
Interface
Implementation
Begin
 writeln('Умножение матриц');
End.

Program pas0;

Uses matrpr.pas; {* Эту строку можно удалить *}
Type {* Используемые типы *}
  atype = Array[1..3, 1..4] Of integer;
  btype = Array[1..4, 1..2] Of real;
  ctype = Array[1..3, 1..2] Of real;
Var {* Необходимые переменные *}
  a : atype;
  b : btype;
  c : ctype;
  n : integer;
  i : integer;
  j : integer;
  k : integer;
Begin
  For n := 1 To 3 Do {* Увеличиваем n от 1 до 3 с шагом 1 *}
    readln(a[n, 1], a[n, 2], a[n, 3], a[n, 4]);
  For n := 1 To 4 Do {* Цикл для n => [1 .. 4] *}
    readln(b[n, 1], b[n, 2]);
  For i := 1 To 3 Do {* Цикл для i => [1 .. 3] *}
    For j := 1 To 2 Do {* Переменная j увеличивается с 1 до 2 *}
    Begin
      c[i, j] := 0;
      For k := 1 To 4 Do {* Цикл для k => [1 .. 4] *}
        c[i, j] := c[i, j] + a[i, k] * b[k, j];
    End;
  For n := 1 To 3 Do {* Переменная n увеличивается с 1 до 3 *}
    writeln(c[n, 1] : 8 : 2, c[n, 2] : 8 : 2);
  readln
End.