Дано натуральное число , определить количество цифр в нем ( ПАСКАЛЬ )
СРОЧНО !

vara:string;beginwriteln('Введите число: ');readln(a);writeln('Количество цифр в вашем числе - ',length(a));end.

varans, n:integer;BeginRead(n);While (n > 0) do  begin    inc(ans);    n := n div 10;  end;Writeln(ans);end.