Дан массив из тридцати элементов. Проверьте, есть ли среди элементов стоящих ** четных...

Question

Дан массив из тридцати элементов. Проверьте, есть ли среди элементов стоящих на четных местах такой, значение которого лежит в интервале от a до b.
Если такой элемент существует - напишите YES, иначе напишите NO.
Формат входных данных

На первой строке через пробел записаны целые числа Arri (|Arri|≤1000) — элементы массива.

На второй строке записано целые положительные числа a и b.
Формат выходных данных
Строка, содержащая запись YES либо NO

Answer 1

Var
  i, x, y: integer;
  a: array[1..30]of integer;
 begin
  readln(x, y);
  for i := 1 to 30 do read(a[i]);
  for i := 1 to 30 do if (i mod 2 = 0) and (a[i] >= x) and (a[i]
    begin
      write('YES');
       exit;
     end;
  write('NO');
end.