输入一个四位数,求它各位上数字的和 用pascal

数字操作：var n,s:integer;begin readln(n); s:=0; while n>0 do begin s:=s+n mod 10; n:=n div 10; end; writeln(s);end。字符串操作：var i,s:integer; n:string;begin readln(n); s:=0; for i:=1 to length(n) do s:=s+ord(n[i])-ord('0'); writeln(s);end。