Вычислить сумму элементов массива, стоящих на четных местах и произведение элементов, стоящих на нечетных - Turbo Pascal

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

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

Решение задачи: «Вычислить сумму элементов массива, стоящих на четных местах и произведение элементов, стоящих на нечетных»

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

const m = 20;
var n: integer;
    p, s: extended;
    a: array [1..m] of integer;
    f: text;
begin
  assign(f, 'input.txt');
  reset(f);
  s := 0;
  p := 1;
  for n := 1 to m do
    begin
      read(f, a[n]);
      if odd(n)
        then p := p * a[n]
        else s := s + a[n]
    end;
  close(f);
  assign(f, 'output.txt');
  rewrite(f);
  writeln(f, 'Produst of elements with odd indexes = ', p:0:0);
  writeln(f, 'Sum of elements with even indexes = ', s:0:0);
  close(f)
end.

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

В начале кода объявляются необходимые переменные: m (равное 20), n (тип integer), p (тип extended), s (тип extended), a (тип array[1..m] of integer) и f (тип text).
Затем происходит чтение файла input.txt и запись его содержимого в переменную a[1..m] (массив целых чисел).
Переменная s инициализируется нулем, а переменная p - единицей.
Затем следует цикл for, который выполняется от 1 до m. На каждой итерации происходит следующее:
- Чтение значения из файла input.txt и сохранение его в a[n] (n - текущий индекс элемента).
- Проверка, является ли текущий индекс нечетным. Если да, то значение переменной p умножается на a[n]. Если нет, то значение переменной s увеличивается на a[n].
После завершения цикла файл input.txt закрывается, а затем открывается файл output.txt для записи.
В файле output.txt записываются результаты вычислений: произведение элементов с нечетными индексами и сумма элементов с четными индексами.
Наконец, файл output.txt закрывается.