всмысле на русском?
Введите число А если число А делится нацело на 2, то число А - четное, иначе число А - нечетное
Var a:integer; begin writeln('Введите число А'); readln(a); if a mod 2=0 then writeln ('YES') else writeln('NO'); end.