Задано натуральное число а. Является ли оно чётным ? решите задачу ,используя функцию int

var n:integer;
begin
readln(n);
if int(n/2)=n/2 then writeln('Четное') else writeln('Нечетное')
end.