дано натуральне число n визначити кількість цифр у цьому числі
Паскаль

var a,k:int64;begink:=1;writeln('Vvedite chislo');read(a);while a>0 do begin a:=a mod 10; k:=k+1; end;write('V chisle',k,' tsifr');end.