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

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.