По информатике 7 класс дано число если оно чётное вывести yes если не чёрное то no

Program pr1;
uses crt;
var 
x:integer;
begin
clrscr;
write('Введите число: ');
readln (x);
if x mod 2=0 then
write('YES')
else if x mod 2=1 then
write('NO');
readln;
end.