Question

Помогите решение pascal
Дано число если оно чётное вывести YES если не чётное то NO

Answer 1

var x : integer;
begin
readln(x);
if (x mod 2 = 0) then
write('YES')
else
write('NO');
end.

Answer 2

var n:integer;
begin
  readln(n);
  if n mod 2 = 0 then write('YES')
  else write('NO')
end.