Определить, является ли введенное число четным-нечетным

Var chislo: integer;

begin

writeln ('Введите число:');

readln (chislo);

if chislo mod 2 = 0 then write ('Число четное')

else write ('Число нечетное');

end.

А вообще в Паскале предусмотрена функция odd (), которая возвращает истину, если число нечетное