Qué está mal? Ayuda por favor

Question

la función que tiene que cumplir es mostrarme cuantos dígitos tiene un numero. Ejm: 2433, tiene 4 digitos.
psdt: usé Pascal

program numdig;
var num, cont:integer;
begin
write('Introducir número:');
readln(num);
cont:=0;
while num>0 do
begin
cont:=cont+1;
num:=num div 10;
end;
writeln('El número tiene digitos:',cont);
end.

Answer 1

Prueba tu bucle de control con esto :
While(num !=0) {
Num+=Num/ 10
Cantidad++;
}
System.out.println(cantidad);
(En java)