Составьте программу нахождения суммы цифр вводимого с клавиатуры натурального трехзначного числа. Положительное трехзначное число можно представить в виде суммы:
\(\mathbf X=a*100+b*10+c\) , где a, b, c - цифры числа.

• program n_4;
• var x, a, b, c, S: integer;
• begin
• writeln \('Нахождение суммы цифр'\);
• write \('Введите исходное число\\gt \\gt '\);
• readln \(x\);
• a:=x div 100; b:=x mod 100 div 10; c:=x mod 10;
• S:=a+b+c;
• write \('S=',s\)
• end.