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

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