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

в программе codeblocks!

var a:integer;beginreadln(a);if odd(a) thenbeginwriteln('число а нечётное');endelsewriteln('число а чётное');end.