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

//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.

вроде так:

var n, a, b , c, d: integer;

begin

readln(n);

a : = n div 1000;

b : = n div 100 mod 10;

c : = n mod 100 div 10;

d : = n mod 100 mod 10;

if a > = 10 then

writeln('не подходит')

else

if (a mod 2 = 0) and (b mod 2 = 0) and (c mod 2 = 0) and (d mod 2 = 0) then

writeln('no')

else

writeln('yes')

end.