Дан массив из N элементов.Написать программку,подсчитывающую творение частей массива

Поначалу в разделе описания var обрисовываем одномерный массив А, который имеет размерность N.

Элементы массива описываем как вещественные числа, можно обрисовать и как целые, тогда вместо real необходимо написать integer. С подмогою оператора ввода read вводим значение N, дальше считываем элементы массива. Переменная P это произведение элементов массива. Поначалу задаем ей значение один, так как творение будет скапливаться. Далее организуем цикл с параметром for и выводим значение P на экран.

var

    A: array[1..N] of real;

    n: integer;

    P: real;

    i: integer;

begin

    write(N=:);

    read(N);

    write(Укажите значения частей массива: );

    for i := 1 to N do

        read(A[i]);

    P:= 1;

    for i := 1 to N do

        P:= P * A[i];

    Write (Творение частей массива одинаково: ,P);

end.