[PASCAL] Invertire un numero (La Sfida!!!)

[cso]

Scrivere un programma in Pascal che, acquisito un numero scritto in notazione araba, restituisca un numero sempre in notazione araba, scritto con le cifre rovesciate. (Se il numero è 12345, il risultato deve essere 54321)
Io l'ho fatto ma mi vergogno a pubblicarlo lo giuro.
Non usate trucchetti con le stringhe...
Ecco perchè mi vergogno:

program vacanze_7;
uses crt;
var i,num:integer;
    n_1,n_10,n_100,n_1000,n_10000:integer;
begin
clrscr;
write('inserisci un numero: ');
readln(num);
n_1:=0;
n_10:=0;
n_100:=0;
n_1000:=0;
n_10000:=0;
if (num<10) and (num>=0) then write('il numero ',num,' rovesciato Š ',num)
else begin
     for i:=1 to num do
                     begin
                     n_1:=n_1+1;
                     if n_1=10 then n_10:=n_10+1;
                     if n_10=10 then n_100:=n_100+1;
                     if n_100=10 then n_1000:=n_1000+1;
                     if n_1000=10 then n_10000:=n_10000+1;
                     if n_1=10 then n_1:=0;
                     if n_10=10 then n_10:=0;
                     if n_100=10 then n_100:=0;
                     if n_1000=10 then n_1000:=0;
                     if n_10000=10 then n_10000:=0;
                     end;
     write('il numero ',num,' rovesciato Š ',n_1,n_10,n_100,n_1000,n_10000);
     end;
readln;
end.

Il ragionamento è perfetto ma sono sicuro che esiste un metodo più elegante...grazie a tutti quelli che risponderanno.
P.S. C'è il copyright in questo codice , niente copy & paste per far vedere che siete fighi...

[Johnny_Depp]

Originariamente inviato da Andrea Simonassi

Io lavorerei sul modulo e sulla divisione per 10

http://forum.html.it/forum/showthrea...hreadid=550232