Программа вычисления  произведения элементов линейной  таблицы ( вектора )  максимального размера 10 элементов — Pascal(Паскаль)

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.