Как в 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.