Programma conta 0

uses crt;

var r,n:real;

begin
clrscr;
write('scrivi il numero: ');
readln(n);
r:=ln(n)/ln(10);
writeln(r:0:0);
readln;
end.