Определить является ли число n чётным двузначным числом в паскале

Program is_ev_2d;
var n: integer;
begin
  write('Введите число: ');
  readln(n);
  if (n mod 2 = 0) and (n > 9) and (n < 100) then
    writeln(n, ' чётное двузначное')
  else 
    writeln(n, ' не чётное двузначное')
end.