Дано целое число n(> 0). используя операции деления нацело и взятие остатка от деления найти количество и сумму его цифр.

n=get()
k=0
s=0
while n>=1 do
    s=s+n % 10
    k=k+1
    n=(n-n%10)/10
end
print(s,k)

var n,count,sum:integer;

begin

   read(n);

   count:=0;

   sum:=0;

   while (n<>0) do

      inc(count);

      sum:=sum+(n mod 10);

      n:=n div 10;

   end

end.