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

Предыдущий
вопрос Следующий
вопрос

program CheckEvenDigits;

var
num, digit: integer;
allEven: boolean;

begin
allEven := true;

write('Введите натуральное число: ');
readln(num);

while num > 0 do
begin
digit := num mod 10;

end;

if allEven then
writeln('Да')
else
writeln('Нет');

end.