Составить функцию результатом которой является истинное значение, если число, заданное при обращении к функции-четное, и ложное значение в противном случае.

Var a:integer;
begin
read(a);
if a mod 2 = 0 then writen('Число чётное') else writen('Число нечетное');
end.