Решите срочно надо пожалуйста

Question

Решите срочно надо пожалуйста

---

Answer 1

While n > 0 do begin 
S := S + n mod 10; 
n := n div 10; 
end; 

Все! В S сумма цифр.