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

var n:integer;beginreadln(n);if(n mod 2 = 0) thenwriteln('Chetnoe')else writeln('nechetnoe');end.