Помогите пожалуйста!Как в pascal записать сумму цифр целого числа?    Это очень срочно!И главное трехзначного числа,без сумашедших кодов на 5 страниц!

var  n,s:integer;begin  Write('Введите 3х-значное натуральное число: '); Read(n);  s:=(n div 100)+((n div 10) mod 10)+(n mod 10);  Writeln('Сумма цифр числа равна ',s);end.