Дано трехзначное число. напишиье программу которая суммирует разряды числа

Var n,s:integer;
begin
write('n='); readln(n);
s:=(n div 100)+(n div 10 mod 10)+(n mod 10);
writeln ('s=',s);
end.

Пример:
n=123
s=6