Ая опять к вам с по информатике на 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