Calculando cantidad de digitos pascal

En este ejemplo de turbo pascal mostrare la manera de como calcular la cantidad de dígitos

De un número mediante if' anidados de manera
que se dira exactamente de cuantos digitos es el numero que se
introdusca llendo desde -3 a 3 digitos

Aqui el codigo:

<Program appletenhtml (input,output);

uses
 crt; 
Var
 num: integer;
Begin
 write('Escribe el numero de 1 a 3 cifras: ');
 readln(num);
 
 if (num >= -9) and (num <= 9) then
  write('El numero introducido tiene 1 cifra')
 else if (num >= -99) and (num <= 99) then
  write('El numero introducido tiene 2 cifras')
 else if (num >= -999) and (num <= 999) then
  write('El numero introducido tiene 3 cifras')
 else
  write('El numero introducido tiene mas de 3 cifras');
 readkey;
End.

Descargar ejemplo

pascal