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

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(Нечетное);