Дано натуральное число.Определить является ли оно чётным. Паскаль!!

еще прикреплен с паскалевским файлом
var n:integer;
begin
writeln('vvedi chislo');
readln(n);
if n mod 2=0 then writeln ('chetnoe') else writeln ('ne chetnoe');
readln;
end.