program InvertiNumero;
var
numero : integer;
procedure InvertiRicorsiva (n : integer);
begin
write(n mod 10 : 1);
if n div 10 <> 0 then
InvertiRicorsiva(n div 10)
end;
procedure InvertiIterativa (n: integer);
begin
repeat
write(n mod 10 : 1);
n := n div 10
until n = 0
end;
begin
write('Scrivi un numero intero non negativo');
readln(numero);
write('Numero invertito con procedura ricorsiva: ');
InvertiRicorsiva(numero);
writeln;
write('Numero invertito con procedura iterativa: ');
InvertiIterativa(numero);
writeln
end.