Клавиатурой вводится число вывести на экран четное оно или нет

Var n:integer;
begin
readln(n);
if(n mod 2 = 0) then
writeln('Chetnoe')
else writeln('nechetnoe');
end.