как сделать программу которая будет складывать все числа ...

Мария

Вероятнее всего складывать надо цифры, а не числа

 

var x,i,k:integer;

begin

readln(x);

while x>0 do begin

i:=x mod 10;

k:=k+i;

x:=x div 10;

end;

writeln(k);

end.