Program Exercice09;

Var 
    n, inverse : Integer;

Begin
	{ Cette boucle force la lecture d'un nombre > 1 }
	Repeat
		WriteLn('Donnez un nombre :');
		ReadLn(n);
	Until(n > 1);
	
	inverse := 0;
	
	While(n > 0)Do
	Begin
		inverse := inverse * 10 + n Mod 10;
		n := n Div 10;
	End;
	
	WriteLn('L''inverse est ', inverse);
	
End.