дано натуральное число

Ответ от Ёергей Куксенков[гуру]
uses Crt;
var a,b:LongInt; sum:Byte;
begin
ClrScr;
Writeln('vvedite chislo');
Readln(a);
sum:=0;
Repeat
b:=a mod 10;
a:=a div 10;
sum:=sum+b
Until
a=0;
Writeln('сумма цифр числа=',sum);
Readln;
end.
или
var
a,s:integer;
begin
readln(a);
repeat
s:=s+a mod 10;
a:=a div 10;
until a=0;
writeln(s);
end.
или
var
a,s,n,i:integer;
begin
n:=4 (пиши скольки значное число)
readln(a);
for i:=1 to n do
begin
s:=s+a mod 10;
a:=a div 10;
end;
writeln(s);
end.