Помогите решить программу мо иформатике​

А где сама программа?

program zadanie;

var N: integer;

begin

 Write('Введите число: ');

 Readln(N);

 if (N mod 2 = 0) and (N > 9) and (N < 100) then

   Writeln('Число чётное двузначное')

 else Writeln('Число нечётное и/или не двузначное');

end.