Помогите пожалуйста
На языке программирования Паскаль составить программу считывания с клавиатуры значений пяти целочисленных элементов массива х и вывода на экран произведения этих элементов.

program array_product;

var

X: array[1..5] of integer;

i, product: integer;

begin

product := 1;

for i := 1 to 5 do

begin

write('Введите алименты ', i, ': ');

readln(X[i]);

product := product * X[i];

end;

writeln('произведения элементов: ', product);

end.