Найти номер и значения третьего четного числа - Pascal

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

Дано 10 чисел найти номер и значения третьего четного числа. Используя любой цикл. Без массивов Даже не знаю как это делать, хелп плиз.

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

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

var n,i,i3,a,b:integer;
begin
i3:=0;
writeln('Ведите 10 целых чисел');
for i:=1 to 10 do
 begin
  readln(a);
  if a mod 2=0 then inc(i3);
  if i3=3 then
   begin
    i3:=i;
    b:=a;
   end;
 end;
if i3<3 then write('Нет трех четных')
else write('Третье четное=',b,' его номер=',i3)
end.

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

Объявляются переменные n, i, i3, a, b, тип которых - integer.
Инициализируется переменная i3 значением 0.
Выводится сообщение Ведите 10 целых чисел.
Выполняется цикл for от 1 до 10.
- Считывается значение с клавиатуры в переменную a.
- Если значение переменной a делится на 2 без остатка (т.е. это четное число), то значение i3 увеличивается на 1.
- Если значение i3 становится равным 3, то:
  - значение i3 присваивается переменной i;
  - значение a присваивается переменной b.
Проверяется условие: если значение переменной i3 меньше 3, то выводится сообщение Нет трех четных, иначе выводится сообщение Третье четное= с значением переменной b и его номер= с значением переменной i3.