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

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