Вывести ответ «Да», если все цифры четные, и ответ «Нет» в остальных случаях. - Pascal ABC

Формулировка задачи:

С клавиатуры вводится трёхзначное число. Нужно вывести ответ «Да», если все его цифры четные, и ответ «Нет» в остальных случаях.

Решение задачи: «Вывести ответ «Да», если все цифры четные, и ответ «Нет» в остальных случаях.»

Листинг программы

var n:integer;
begin
repeat
write('Введите трехзначное число n=');
readln(n);
n:=abs(n);
until (n>99)and(n<=999);
if(n div 100 mod 2=0)and(n div 10 mod 10 mod 2=0)and(n mod 10 mod 2=0)
then writeln('Да') else write('Нет')
end.

Объяснение кода листинга программы

Создается переменная n типа integer.
В цикле repeat-until выполняется следующее действие:
- Выводится сообщение «Введите трехзначное число n=».
- Считывается значение переменной n с помощью функции readln.
- Значение переменной n преобразуется в абсолютное значение с помощью функции abs.
Проверяется условие (n>99)and(n<=999). Это условие гарантирует, что введенное число находится в диапазоне от 100 до 999.
Далее проверяется условие (n div 100 mod 2=0)and(n div 10 mod 10 mod 2=0)and(n mod 10 mod 2=0). Это условие проверяет, что все цифры числа n четные.
Если все условия выполняются, то выводится сообщение «Да», иначе выводится сообщение «Нет».