Написать программу нахождения суммы цифр трехзначного числа (для отрицательных и положительных чисел)

Спасибо большое!

Program zzadani;Var n,b,a,c:integer;Begin Writeln('Введите трехзначное число'); Readln(n); a:=n div 100; b:=(n div 10) mod 10; c:=(n mod 100) mod 10; n:=a+b+c; Writeln('Сумма цифр данного числа=',n);End.