Определите,является ли данное число четным или нечетным ( написать в pascal )

Question

Определите,является ли данное число четным или нечетным ( написать в pascal )

Answer 1

var n:integer;
begin      
writeln('задайте целое число');      
readln(n);    
if odd(n) then writeln('нечетное')      
else writeln('четное');
readln
end.


можно через такой код 
if n mod 2=0 then write('Четное') else write('Нечетное');