{************************************************
                 Hugo Eti‚vant
      http://cyberzoide.developpez.com
         e-mail : cybergohu@yahoo.fr
      (pour une aide en Turbo Pascal 7.0)
*************************************************}



Program Arrets ;

Var i : Integer ;

BEGIN
     While i <> 13 Do
           Begin
           Write('Entrez un nombre : ');
           ReadLn(i) ;
           WriteLn(i) ;
           If i = 0 Then Exit ;
     End ;
     WriteLn('Boucle termin‚e.') ;
END.