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