Определите, является ли заданное целое число Х четным и большим 25. Паскаль

Для определения, является ли заданное целое число X четным и большим 25, можно использовать следующий код на языке Pascal:

program CheckNumber;
var
  X: integer;
begin
  write('Введите целое число X: ');
  readln(X);
  
  if (X mod 2 = 0) and (X > 25) then
    writeln(X, ' является четным и больше 25.')
  else
    writeln(X, ' не является четным и больше 25.');
end.

Введите данную программу в среду разработки Pascal и запустите программу, чтобы проверить является ли заданное целое число X четным и большим 25.