Пользователь вводит трехзначное число. Программа должна сложить цифры, из которых состоит это число. Например, если было введено 349, программа должна вывести на экран число 16, так как 3 + 4 + 9 = 16.

может быть крик?

решение должно иметь од 20 до 5000

program mss; uses crt; var v,m,h,r: real; beginclrscr; writeln('введите радиус'); readln(r); writeln('введите высоту'); readln(h); v: = 3.14*sqr(r)*h; m: = 1200*v; writeln('    ',m: 2: 2,' кг'); readln; end.