С клавиатуры вводится натуральное число N. Программа выводит максимальную нечетную цифру числа. Написать программу на Паскале.

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

program MaxOddDigit;
var
N, maxOddDigit, digit: integer;
begin
writeln('Enter a natural number: ');
readln(N);
maxOddDigit := -1;
while N > 0 do
begin
digit := N mod 10;
if (digit mod 2 <> 0) and (digit > maxOddDigit) then
maxOddDigit := digit;
N := N div 10;
end;
if maxOddDigit = -1 then
writeln('There are no odd digits in the number.')
else
writeln('The maximum odd digit is: ', maxOddDigit);
end.