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

program zz1;

var n, n1, n2, n3:integer; / /задаем переменные

begin

write ('введите заданное трехзначное число');

read (n); / /вводим с клавиатуры заданное трехзначное число

n1:=n div 100; / /находим первую цифру числа

n2: = (n mod 100) div 10; / /находим вторую цифру числа

n3:=n mod 10; / /находим третью цифру числа

if (n1 mod 2 = 0) and (n2 mod 2 = 0) and (n3 mod 2 = 0) / /проверяем, если все цифры четные, то выводим один ответ, если нет, то другой

then write ('все цифры числа четные ') else write ('некоторые цифры числа не четные');

end.