определить является ли число 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.