Создать одномерный массив из 13 элементов. Вычислить наименьшее значение из четных элементов. Вывести его значение и индекс.

"Четный элемент" был понят, как элемент массива, имеющий четный порядковый номер при счете от единицы.const  n=13;var  a:array[1..n] of integer;  i,imin:integer;begin  { инициализация }  Randomize;  Writeln('Элементы массива');  for i := 1 to n do  begin    a[i]:=Random(50);    Write(a[i]:3)  end;  Writeln;  { поиск минимума }  i:=4; imin:=2;  while i<=n do begin    if a[imin]>a[i] then imin:=i;    i:=i+2  end;  Writeln('Минимальный элемент с четным номером ',imin,' равен ',a[imin]);end.Тестовое решение:Элементы массива 30 23  5 19 36 10 10 37 42  4 23 37 34Минимальный элемент с четным номером 10 равен 4