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.