Написать программу по формуле

type
  Vector = array [1..4] of Integer;
  Matrix = array [1..4] of Vector;
  
const
  A : Matrix = ((5,2,1,7), (-1,3,0,-3), (-2,9,1,0), (7,-3,2,-1));
  B : Vector = (1,-1,3,2);
  
var
  C, D, R : Vector;
  i, j : Byte;
  
begin
  { Перемножение матрицы A на вектор B }
  for i := 1 to 4 do
    begin
      C[i] := 0;
      for j := 1 to 4 do
        C[i] := C[i] + A[i, j] * B[j];
    end;
    
    
  { Умножение вектора С на число 2 }
  for i := 1 to 4 do
    C[i] := C[i] * 2;
    
  { Умножение вектора B на число 3 }
  for i := 1 to 4 do
    D[i] := D[i] * 3;
    
  { Сложение вектора С и вектора D }
  for i := 1 to 4 do
    R[i] := C[i] + D[i];
  
  Write('Результат вычисления:');
  for i := 1 to 4 do
    Write(C[i]:5);
  WriteLn;
end.

  { Умножение вектора С на число 2 }
  for i := 1 to 4 do
    C[i] := C[i] * 2;
    
  { Умножение вектора B на число 3 }
  for i := 1 to 4 do
    D[i] := B[i] * 3; // <--- !!!
    
  { Сложение вектора С и вектора D }
  for i := 1 to 4 do
    R[i] := C[i] + D[i];
  
  Write('Результат вычисления:');
  for i := 1 to 4 do
    Write(R[i]:5); // <--- !!!
  WriteLn;

{$reference System.Core.dll}
uses
  System, System.Linq;
  
type
  Vector = array of Integer;
  
var
  A : array of Vector := new Vector[4](
    new integer[4](5,2,1,7),
    new integer[4](-1,3,0,-3),
    new integer[4](-2,9,1,0),
    new integer[4](7,-3,2,-1)
  );   
  B : array of integer := new integer[4](1,-1,3,2);
  C : array of integer := new integer[4];
  
begin
  { Перемножение матрицы A на вектор B }
  for i : integer := 0 to 3 do
    C[i] := A[i].Zip(B, (x : integer; y : integer) -> x*y).Sum();
  
  Write('Результат вычисления:');
  foreach v : integer in
    C.Zip(B, (x : integer; y : integer) -> 2*x + 3*y) do Write(v:5);
  WriteLn;
end.