верно или не верно?????

[Polusha]

Дан массив A размера N. найти минимальный элемент из его элементов с нечётными номерами

while i<n do begin
min:=a[1];
if a[i]<a[1]then
min:=a[i];
i:=i+2;

[[CODER]]

   min := A[1], i := 3;
   while (i <= n) do begin
		  if (min > A[i]) then
			  min := A[i];
	   i := i + 2;
   end;