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

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