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

Question

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

Answer 1

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.