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

var

a,b,c,d:integer;

p:longint;

begin

write ('A = ' );readln(a);

write ('B = ' );readln(b);

write ('C = ' );readln(c);

write ('D = ' );readln(d);

p:=a*b*c*d;

if odd(p)=false then writeln ('YES') else writeln ('NO');

readln;

end.