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

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.