Составить функцию результатом которой является истинное значение, если число, заданное при обращении к функции-четное, и ложное значение в противном случае.
Var a:integer; begin read(a); if a mod 2 = 0 then writen('Число чётное') else writen('Число нечетное'); end.