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

Ответ:

program Number3;

var

 n, t: Integer;

 b: Boolean;

begin

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

 ReadLn (n);

 if (n >= 100) and (n <= 999) then begin

   t := n;

   b := True;

   while t > 0 do begin

     if (t mod 10) mod 2 <> 0 then begin

       b := False;

       Break;

     end;

     t := t div 10;

   end;

   if b then

     WriteLn ('да')

   else

     WriteLn ('нет');

 end else

   WriteLn (n, ' - не трехзначное');

 ReadLn;

end.