Напишите программу для решения следующей дано целое число является ли оно четным?

Var a:integer;
begin
readln(a);
if odd(a) then
begin
writeln('число а нечётное');
end
else
writeln('число а чётное');
end.