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.