А я опять к вам с задачей по информатике на PascalABC.NET в синтаксисе Pascal ABC. Дано натуральное число n. Определить его разрядность и сумму цифр.

var
  n,s,k:integer;
begin
  Write('n='); Read(n);
  s:=0; k:=0;
  while n>0 do begin
    s:=s+n mod 10;
    n:=n div 10;
    k:=k+1
    end;
  Writeln('Разрядность ',k,', сумма цифр ',s)
end.


n=142321
Разрядность 6, сумма цифр 13