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