Найти min из элементов, стоящих на нечётных местах, домножить на него все элементы, стоящие перед найденным - Turbo Pascal

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

В массиве Z1, Z2,…, Z30 найти минимальный из элементов, стоящих на нечётных местах. Домножить на него все элементы, расположенные до найденного минимального.

Решение задачи: «Найти min из элементов, стоящих на нечётных местах, домножить на него все элементы, стоящие перед найденным»

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

uses
  SysUtils;
var
a: array [0..100] of Integer;
b: array [0..100] of Integer;
i,j,m,N: Integer;
S: Real;
begin
//Число элементов
Readln(N);
//Ввод значенией элементов
for i := 1 to N do
  begin
    Readln(a[i]);
  end;
//Вывод элементов на экран
 for i := 1 to N do
  begin
    Write(a[i]);
  end;
s:=a[1];
m:=1;
i:=1;
//Поиск минимального элемента
Writeln;
  while i<=N do
  begin
    if a[i]<s then
    begin
        s:=a[i];
        j:=i;
      end;
      i:=i+2; //Нечётные позиции
     end;
 
  Writeln(S:3:2); //Вывод минимального элемента
 
  for i := 1 to j-1 do
    begin
      s:=s*a[i];
    end;
   Writeln(S:5:2); //Вывод произведения
  Readln;
end.

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

Этот код написан на Turbo Pascal и выполняет следующие действия:

Вводит число элементов (N) и значения каждого элемента массива a.
Выводит значения элементов массива a.
Инициализирует переменные s, m и i.
Запускает цикл while, который выполняется до тех пор, пока i меньше или равно N.
Внутри цикла while проверяется, если текущий элемент массива a меньше значения переменной s.
Если это условие истинно, то значение переменной s присваивается текущему элементу, а значение переменной m присваивается индексу текущего элемента.
Цикл while завершается, и значение переменной s выводится на экран.
Затем выполняется цикл for, который начинается с i=1 и продолжается до j-1.
Внутри цикла for значение переменной s умножается на текущий элемент массива a.
Значение переменной s выводится на экран.
Программа заканчивается, и пользователь приглашается ввести данные для следующей итерации.