Решить ! с клавиатуры вводятся натуральные числа. признак конца ввода – отрицательное число. посчитать сумму всех нечетных чисел.

var n, sum, mult: integer; begin write('Enter number: '); readln(n); sum := 0; mult := 1; while n > 0 do begin sum := sum + n mod 10; mult := mult * (n mod 10); n := n div 10 end; writeln('Sum of digits = ', sum); writeln('Multiplication of digits = ', mult);