Составьте программу, которая запрашивает целое число x и определяет, четное или нечетное является это число

var x: integer;

begin

write('X=');

readln(x);

if x mod 2=0 then

writeln('X является чётным числом');

else

writeln('X является нечётным числом');

end;