var x: integer; begin write(039;Введите x: 039;);readln(x); if x mod 2

var

 x: integer;

begin

 write('Введите x: ');

 readln(x);

 if x mod 2 = 0 then writeln('Это четное число')

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

end.

Тут нет ошибок!

если программка работает то в ней нет ошибок

у меня она работает

можно добавить скобки в условии

var x: integer;

begin

write('Введите x: ');

readln(x);

if x mod 2 = 0 then

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

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

end.