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

var a,k:int64; begin k:=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.