Program Lin (Input, Output);
Const
Nmax = 10;
Var
X : Array [1..Nmax] Of Real;
P : Real;
N : Integer;
i : Integer;
Begin
WriteLn ('PASCAL: Вычисление произведения элементов линейной таблицы.');
Write ('Введите число сомножителей N (N<=10): ');
ReadLn (N);
Write ('Введите элементы линейной таблицы: ');
For i := 1 To N Do
Begin
Write ('X[', i: 2, '] = ');
ReadLn (X [i] );
End;
P := 1;
For i := 1 To N Do
P := P * X [i];
WriteLn ('Значение произведения P = ', P: 4: 2);
ReadLn;
End.