Pascal/Turbo Pascal - cifras

{Esto te valdrá}

program digitos;

  uses

     crt;

   var

     dd, p, t, digi : longint;

     r : string[20];

   procedure entradanumero(var n : longint);

   begin

      clrscr;

      write('   Entra Numero : ');

      readln(n);

   end;

   begin

       entradanumero(digi);

       str(digi,r);

       for t := 1 to ord(r[0]) do

       writeln('   ',ord(r[t]) - 48);

       readkey;

   end.