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

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

var a:integer;beginwriteln('Введите число А');readln(a);if a mod 2=0 thenwriteln ('YES')elsewriteln('NO');end.