Найти номер первого четного числа последовательности чисел - Turbo Pascal

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

решить задачу двумя способами 1. С массивом(При решении способом с массивом вывести все введенные числа в виде строки) 2. Используя метки и оператор goto (не используя никакой цикл) С клавиатуры вводится N целых чисел a1, a2,….,aN. Найти сумму этих чисел. Найти номер первого четного числа последовательности чисел. Если четных чисел нет, то результат равен нулю. Одну часть этой задачи решила, а эта часть не поддается дрессировке(

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

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

label
l1, l2;
var
  num, n, i, s, firstOdd: integer;
 
begin
  write('n = ');
  readln(n);
  
  i := 1;
  s := 0;
  firstOdd := 0;
  l1:
  write('a', i, ' = ');
  readln(num);
  s := s + num;
  if (firstOdd = 0) and (num mod 2 = 0) then
    firstOdd := num;
  i := i + 1;
  if i <= n then
    goto l1;
  
  writeln('Sum = ', s);
  writeln('Result = ', firstOdd);
  
  readln;
end.

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

Этот код написан на Turbo Pascal и предназначен для поиска номера первого четного числа в последовательности чисел. В начале кода объявляются переменные: n, i, s и firstOdd. Переменная n используется для хранения количества чисел в последовательности, а i и s используются для отслеживания текущего числа и его суммы соответственно. Переменная firstOdd используется для хранения номера первого четного числа. Затем происходит чтение значения переменной n с помощью функции readln(). После этого переменная i устанавливается равной 1, а переменная s устанавливается равной 0. Переменная firstOdd устанавливается равной 0. Далее начинается цикл l1, который продолжается до тех пор, пока i меньше или равно n. Внутри цикла выводится текущее число num с помощью функции write(). Затем число num добавляется к сумме s. Если текущее число num является четным и это первое четное число в последовательности (т.е. firstOdd равно 0), то firstOdd устанавливается равным num. Затем переменная i увеличивается на 1. После завершения цикла l1 выводится сумма s с помощью функции writeln(). Затем выводится значение переменной firstOdd с помощью функции writeln(). Наконец, вызывается функция readln() для завершения программы.