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

огромное спасибо

Пожалуйста

var n,s:integer;beginwrite('n='); readln(n);s:=(n div 100)+(n div 10 mod 10)+(n mod 10);writeln ('s=',s);end.Пример:n=123s=6