Найти значения выражения 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],' ')   end end. тестовое решение: матрица 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

Сначала писать научись без ошибок