Ввести одно число, указывающие количество вводимых двузначных чисел. из введенных двузначных чисел найти количество четных.

Var n,a,i,nn:integer;
begin
  write('Количество двузначных чисел: ');
  readln(n);
  for i:=1 to n do begin
    repeat
      write('Введите ',i,' число');readln(a);
    until (a>9) and (a<100);
    if a mod 2 =0 then nn:=nn+1;
  end;
  writeln('Количество четных двухзначных = ',nn);
end.

Тестовое решение:
Введите 1 число1
Введите 1 число23
Введите 2 число44
Введите 3 число3
Введите 3 число32
Введите 4 число45
Введите 5 число56
Количество четных двухзначных = 3