Question

p:=a; a=23
p s p>0







s:=0;
while p>0 do
begin
s:=s+p mod 10;
p:= p div 10;
end;