Pascal/Turbo Pascal - programa pascal

{Algo como esto vale}

program numeros;

 uses

   crt;

 var

   num : word;

   temp, tex : string[20];

   i, error, cont : integer;

 begin

    clrscr;

    write('    Entre un numero Max 5 Cifras : ');

    readln(num);

    str(num,tex);

    i := 1;

    num := 0;

    for cont := length(tex) downto 1 do

    begin

    if tex[cont] <> ' ' then

    begin

    temp[i] := tex[cont];

    temp[0] := chr(i);

    i := i + 1;

    end;

  end;

    val(temp,num,error);

    writeln('   Elnumero Es =  ',num);

    readkey;

 end.