С клавиатуры вводится 4xзначное число нужно вывести ответ "да", если все его цифры...

Question

С клавиатуры вводится 4xзначное число нужно вывести ответ "да", если все его цифры нечетные, и ответ "нет" в остальных случаях. Если введено не 4хзначное число, то должно быть введено сообщение " наверное число". Напишите программу, пожалуйста

Answer 1

//PascalABC.NET 3.4.2

begin

 var num := readinteger();

 if (num in [1000..9999]) then

 begin

   for var i := 1 to 4 do

     if (num.ToString[i].ToDigit mod 2 <> 0) then  

     begin

       write('нет');

       exit;

     end;

   write('да');

 end

 else

   write(' наверное число');

end.