Проведите отладку программы (если есть, то найдите ошибки в коде; если возможно, то улучшите код программы) var x: integer; begin write('введите x: '); readln(x); if x mod 2 = 0 then writeln('это четное число') else writeln('это нечетное число'); end.
begin
if ReadInteger('Введите x:').IsOdd then Print('Это нечетное число')
else Print('Это четное число')
end.