найти значения выражения c*(5*A+B), где A и И - целочисленные матрицы размером 5х5, а C- целочисленный вектор размером 5

const  n = 5;var  a,b: array[1..n,1..n] of integer;  c,r: array[1..n] of integer;  i, j: integer;begin  Randomize;  { инициализация }  Writeln('Матрица a');  for i := 1 to n do  begin    for j:=1 to n do    begin      a[i,j]:= Random(51);      Write(a[i,j]:3)    end;    Writeln  end;  Writeln('Матрица b');  for i := 1 to n do  begin    for j:=1 to n do    begin      b[i,j]:= Random(51);      Write(b[i,j]:3)    end;    Writeln  end;  Writeln('Вектор c');  for i := 1 to n do  begin    c[i]:= Random(51);    Write(c[i]:3)  end;  Writeln;  { вычисление и вывод }  Writeln('Вектор результата');  for i:=1 to n do  begin    r[i]:=0;    for j:=1 to n do r[i]:=r[i]+c[j]*(5*a[i,j]+b[i,j]);    Write(r[i],' ')  endend.Тестовое решение:Матрица a 44 49 29 34  2 48  1 33 10 24 43 48 29  4 50  2 14  5 25 21 39 31 19 12 23Матрица b 42 32 26 10 37 35 29  6 49 43 42 44 10 32 11 32 20  3 11 41 22 40  9 35 10Вектор c 39  9 23 45 44Вектор результата26812 26591 29968 15636 22385