Определите, является ли заданное число a нечетным числом. (написать программу) на

Введите число А
если число А делится нацело на 2, то число А - четное, иначе число А - нечетное

Var a:integer;
begin
writeln('Введите число А');
readln(a);
if a mod 2=0 then
writeln ('YES')
else
writeln('NO');
end.