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;

podgornovakatu    1   06.04.2020 07:53    24