Дан массив A размера N. Найти минимальный элемент из его элементов с четными номерами: A2, A4, A6, ...

// нахождение минимального четного элемента
Min:=A[2];
for i= 2 to 15 do
 if A[2*i]<Min then Min:=A[2*i];
write(Min);

Min := High(Integer);
For i= 1 to 30 do
  If i div 2 = 0 then 
    If A[i] < Min then 
      Min:=A[i];
Write(Min);

Min := High(Integer);
 
For i= 1 to 30 do begin
A[i]:=random(40);
write (A[i], ' ');
  If i mod 2 = 0 then 
    If A[i] < Min then 
      Min:=A[i];
end;
Write(Min);

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
type
  massiv= array [1..30] of integer;
  var
   A:massiv;
   i,min:integer;
begin
 randomize;
// заполнение массива
  for I := 1 to 30 do begin
    A[i]:=random(40);
  end;
// вывод значений массива
  for I := 1 to 30 do begin
    write (A[i], ' ');
  end;
  writeln;
 
// нахождение минимального четного элемента
  Min:=A[2];
  for i:= 2 to 15 do
   if A[2*i]<Min then Min:=A[2*i];
  write('min element s 4etnim indeksom ',Min);
 
  readln;
 
end.

// нахождение минимального четного элемента
  Min:=A[2];
  i:=4;
  while i<=30 do begin
    if A[i]<Min then Min:=A[i];
    i:=i+2;
  end;
  write('min element s 4etnim indeksom ',Min);