Developing.ru

Помогите плз с решением

вычислить сумму цифр натурального числа заданного пользователем

Учитывая, натуральное число может быть достаточно велико, то советую считать в строку, потом

For i:=1 to length(S) do begin
Val(S,x, Code);
if code=0 then c:=c+x
else writeln ('error');
end;

где S строковая переменная,
Code, i, x, c целочисленные.

Я бы еще после writeln('error') Break поставил.

А я бы так:
for i:=1 to length(s) do
sum:=sum+ord(s)-ord('0');
Для нечисловых данных, естественно, выдаст неверное значение