Задание

Составьте верную последовательность команд для решения задачи:

Дано целое число n. Найти сумму нечётных цифр этого числа.

program SumOddDigits;

function SumOfOddDigits(n: integer): integer;

var sum, digit: integer;

begin

sum := 0;

while n > 0 do begin

digit := n mod 10;

if digit mod 2 <> 0 then

sum := sum + digit;

n := n div 10;

end;

SumOfOddDigits := sum;

end;

var n, result: integer;

begin

writeln('Введите целое число: ');

readln(n);

result := SumOfOddDigits(n);

writeln('Сумма нечетных цифр: ', result);

end.