Дано натуральное число определить является ли оно четным (паскаль)

Могут быть небольшие ошибки
var a: integer;
begin
readln (a);
if (a mod 2)=0 then
writeln ('да')
else
writeln ('нет');
end.