Написать на pascal программу. определить ,являеться ли число n четным двузначным числом

Program NekitZor;
 var N:integer;
begin
write('Введите число N:');
readln(N);
if (N mod 2 = 0)and (N div 100 < 1) and (N>9) then write('Данное число двузначное') else if (N div 100 <1) and (N>9) then write ('Данное число не четное двузначное')
end.