Question

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

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

Answer 1

// PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

// Внимание! Если программа не работает, обновите версию!

begin

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

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

end.