3 значное число нужно сложить числа в этом числе паскаль

program dig3;var n, a, b, c: integer;begin write('Число: '); readln(n); a := n div 100; b := n mod 100 div 10; c := n mod 10; writeln(a + b + c);end.