программирование PascalABCВвести целое число и найти его сумму цифрПо типу: while условие doПеременные: I,n​

var n, i : integer;

begin

i := 0;

readln(n);

n := abs(n);

while n > 0 do

begin

i := i + n mod 10;

n := n div 10;

end;

writeln(i);

end.