Найти номер первого элемента массива с четным значением - PascalABC.NET

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

1. Найти номер первого элемента с четным значением. 2. Найти номер последнего элемента с нечетным значением. 3. Подсчитать сумму элементов от начала массива до первого с отрицательным значением.Спасибо)

Решение задачи: «Найти номер первого элемента массива с четным значением»

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

var f,a,c:integer;
N,P:array [1..30000] of integer;
begin
readln(a);
for c:=1 to a do
begin
read(N[c]);
if ((f=0) and (N[c] mod 2=0)) then f:=c;
end;
write(f);
end.

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

Объявлены три переменные: f, a и c типа integer.
Объявлен массив N типа array [1..30000] of integer с 30000 элементами и переменная P типа integer.
Программа считывает значение переменной a.
Запускается цикл, который будет выполняться a раз.
В каждой итерации цикла считывается значение элемента массива N и сохраняется в переменной N[c].
Проверяется условие: если f равно 0 и значение N[c] делится на 2 без остатка, то f присваивается значение c.
После завершения цикла программа выводит значение переменной f.