Помоги пожплуйста с паскалем. напечатать является ли заданное число четным??

y:= x mod 2;
if y=0 then write ('четное') else write ('нечетное')

В Паскале существует встроенная функция ODD, которая возвращает истину, если число нечётное!

var N : Integer;
begin
Write('Введите число = '); ReadLn(N);
WriteLn('Данное число является чётным = ', Not Odd(N));
end.