Найдите сумму цифр трехзначного числа.решите пожалуйстаочень нужно !!

program fofgogjoj; var n:integer; begin Writeln('Введите трёхзначное число'); Readln(n); N:=(n div 100)+((n div 10) mod 10)+(n mod 10); Writeln('Сумма цифр равна: ',n); end.