Задача по информатике 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.