Задача по информатике 7 класс
Дано число если оно чётное вывести
YES если не чёрное то NO

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