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.

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

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

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

var x: integer;

begin

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

readln(x);

if x mod 2 = 0 then

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

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

end.