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

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