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

var

a, b, s: integer; / / объявляем переменные целочисленного типа.

label 1; / / объявляем метку.

begin

1: write ('Введите число:'); / / вывод строки на экран.

read (a); / / считываем число, введенное с клавиатуры.

if (length (inttostr (a)) 3) then / / проверяем является ли введенное число трехзначным.

begin

writeln ('Введено неверное число.'); / / вывод строки на экран.

goto 1; / / переход на метку 1.

end;

while a > 0 do / / начало цикла.

begin

b : = a mod 10; / / определяем последнюю цифру числа.

if (b mod 2 = 0) then / / проверяем четность цифры.

s: = s + 1; / / считаем кол-во четных цифр.

a : = a div 10; / / удаляем последнюю цифру из числа.

end;

if s = 3 then writeln ('Да') / / если три цифры числа четные, то выводим строку "Да".

else writeln ('Нет');

end.