[РЕШЕНО] [Turbo Pascal]: В заданной матрице найти произведение всех её элементов

[temar]

Помогите пожалуйста с написанием программы в Turbo Pascal следующей задачи:
Введите с клавиатуры матрицу А{6,7}.Вывести ее на экран и найдите произведение всех элементов матрицы.

Решение в следующем сообщении

[newerow1989]

var a:array[1..6,1..7] of integer;
    i,j:integer;
    pr:int64;
begin
   For i:=1 to 6 do
      For j:=1 to 7 do
      begin
         Write('a[',i,', ',j,'] = ');
         Readln(a[i,j]);
      end;
   For i:=1 to 6 do
   begin
      For j:=1 to 7 do
         Write(a[i,j]:2,' ');
      Writeln;
   end;
   Writeln;
   pr:=1;
   For i:=1 to 6 do
      For j:=1 to 7 do
         pr:=pr*a[i,j];
   Writeln(pr);
   Readln;
end.

[temar]

Думаю да, благодарю!!!

[newerow1989]