Вычислить сумму и произведение элементов последовательности целых чисел Р1, Р2,…, Р10 - Pascal

Формулировка задачи:

Составить программу для вычисления сумму элементов последовательности целых чисел Р1, Р2,…, Р10 имеющих четные индексы и произведение элементов последовательности Р1, Р2,…, Р10 имеющих нечетные индексы.

Решение задачи: «Вычислить сумму и произведение элементов последовательности целых чисел Р1, Р2,…, Р10»

Листинг программы

const
    NMAX = 10;
type
    TLine = Array[1..NMAX] Of ShortInt;
function Sum(const l: TLine; const even: Boolean): Integer;
var
    Result: Integer;
    i: Byte;
begin
    Result := 0;
    for i := 1 to NMAX do
        if ((even And Not Odd(i))  Or (Not even And Odd(i)))
        then
            Inc(Result, l[i]);
    Sum := Result;
end;
function Mult(const l: TLine; const even: Boolean): Double;
var
    Result: Double;
    i: Byte;
begin
    Result := 1;
    for i := 1 to NMAX do
        if ((even And Not Odd(i))  Or (Not even And Odd(i)))
        then
            Result := Result * l[i];
    Mult := Result;
end;
var
    p: TLine;
    i: Byte;
begin
    Randomize();
    Write('P:');
    for i := 1 to NMAX do
    begin
        p[i] := Random(199) - 99;
        Write(p[i]:4);
    end;
    WriteLn;
    WriteLn('even: sum=', Sum(p, True), ' mult=', Mult(p, True):0:0);
    WriteLn('odd: sum=', Sum(p, False), ' mult=', Mult(p, False):0:0);
end.

Объяснение кода листинга программы

Объявляется константа NMAX со значением 10.
Определяется тип TLine как массив из 10 элементов типа ShortInt.
Объявляются функции Sum и Mult, где l - массив целых чисел, even - булева переменная.
В функции Sum вычисляется сумма элементов массива l, в зависимости от булевой переменной, которая определяет, является ли индекс элемента четным или нечетным, а затем возвращается значение суммы.
В функции Mult вычисляется произведение элементов массива l, также в зависимости от булевой переменной, и возвращается результат.
Объявляется переменная p как массив целых чисел.
С помощью Randomize() генерируются случайные значения для массива p, после чего они выводятся на экран.
Выводятся результаты суммы и произведения элементов массива p, как для четных, так и для нечетных элементов, используя функции Sum и Mult.