составьте программу которая находит сумму цифр трех значного числа на PascalABC

Program n1;var a: integer;beginreadln(a);a:=abs(a);write((a div 100)+ (a mod 10)+ (a mod 100 div 10));end.