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

var chislo: integer;beginwriteln('Введите число:');readln(chislo);if chislo mod 2 = 0 then write('Число четное')else write('Число нечетное');end.А вообще в Паскале предусмотрена функция odd(), которая возвращает истину, если число нечетное