PASCAL ABC, программа! Вводится целое положительное число. Найти наименьшую нечетную цифру в числе. Если в числе нет нечетных цифр, то вывести надпись "В числе нет нечетных цифр"

Предыдущий
вопрос Следующий
вопрос

Пример программы на языке Pascal:

program SmallestOddDigit;
var
number, smallestOddDigit, digit: integer;
found: boolean;
begin
found := false;
write('Введите число: ');
readln(number);
smallestOddDigit := 9;
while number <> 0 do
begin
digit := number mod 10;
number := number div 10;
if (digit mod 2 <> 0) and (digit < smallestOddDigit) then
begin
smallestOddDigit := digit;
found := true;
end;
end;
if found then
writeln('Наименьшая нечетная цифра в числе: ', smallestOddDigit)
else
writeln('В числе нет нечетных цифр');
end.

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