Program pr21 (Input, Output);
Var
X : Array [1..20, 1..20] Of Real;
N : Integer;
P : Real;
i, j: Integer;
Begin
WriteLn ('PASCAL: Вычисление произведения элементов прямоугольной таблицы.');
Write ('Введите размерность:N = ');
ReadLn (N);
WriteLn ('Введите элементы таблицы:');
For i := 1 To N Do
For j := 1 To N Do
Begin
Write ('X[', i, ',', j, '] = ');
ReadLn (X [i, j] );
End;
P := 1;
For i := 1 To N Do
For j := 1 To N Do
P := P * X [i, j];
WriteLn ('Произведение: P = ', p: 6: 1);
ReadLn;
End.