Программа спрашивает одно число с оператора ветвления определяет,если с остатком то выводит сообщения"число четное",иначе выводит сообщение "число нечетное"-как это решить

Var a: integer;
begin
writeln("enter value-->");
readln(a);
if a mod 2 = 0 then writeln ("число четное")
else writeln ("число нечетное")
end.