Проведите отладку программы (если есть, то найдите ошибки в коде; если возможно, то улучшите код программы)

var x: integer;
begin
write('Введите x: ');
readln(x);
if x mod 2 = 0 then
writeln('Это четное число')
else writeln('Это нечетное число');
end.

Или сразу тернарный в Print засунуть, еще короче)

Да, но тогда он не поместится тут в строку ))) Если обратите внимание на мои ответы, я стал их намеренно резать на части после того, как в очередной раз "доблестные программисты" что-то поправили и теперь строка отображается короче, чем выглядит при наборе в поле ответа.

Я всегда режу, особенно когда большие цепочки или лямбда выражения

// PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018// Внимание! Если программа не работает, обновите версию!

begin

 if ReadInteger('Введите x:').IsOdd then Print('Это нечетное число')

 else Print('Это четное число')

end.