// перемножаем матрицы For i:= 1 to m-1 do For j:= 1 to q-1 do // выводим значение в результирующую матрицу for i:=1 to m-1 do begin for j:=1 to q-1 do