Задача на двумерные массивы в паскале, нужна помощь

[GaJIbI4]

Помогите пожалуйста решить задачу: даны 2-е квадратные матрицы 6 на 6 получить новую матрицу прибавлением к элементам каждого столбца первой матрицы произведения элементов соответствующих строк второй матрицы.

[Sazary]

GaJIbI4 Вот как я понял:
элемент c[i,j] будет равен сумме элемента b[i,j] и произведения элементов i-й строки матрицы a
Верно?

uses crt;

const n=6;
var
a,b,c : array[1..n,1..n] of integer;
i,j,k : integer;
pr : integer;

begin
clrscr;

{ zapolnenie matric }
randomize;
for i:=1 to n do
 for j:=1 to n do
  begin
  a[i,j] := random(10)-3;
  b[i,j] := random(10)-3;
  end;
{----------}
{ vyvod matric }
writeln('matrix a:');
for i:=1 to n do
 begin
 for j:=1 to n do
  write(a[i,j]:4);
 writeln;
 end;
writeln('matrix b:');
for i:=1 to n do
 begin
 for j:=1 to n do
  write(b[i,j]:4);
 writeln;
 end;
{--------}
writeln('------------');
for j:=1 to n do
 begin
 for i:=1 to n do
  begin
  pr := 1;
  for k:=1 to n do
   pr := pr*b[i,k];
  c[i,j] := a[i,j]+pr;
  write(c[i,j]:4);
  end;
 writeln;
 end;
{----------}

readln;
end.

[GaJIbI4]

спасибо всё верно

[Klaud]

1)Заданы массивы A[n] и B[n].Найти их скалярное произведение
2)Даны элементы массива A(1),...,A(18).Получить А(1),А(18),А(2),А(17),..,А(9),А(10)
3)Задан массив А[n,m].Найти сумму элементов в строках с к1-й по к2-ю.Сделать проверку корректности ввода к1 и к2.