{*************************************************************

         - - -   Le CyberZo‹de Qui Fr‚tille  - - -

                 .. le Web scientifique ..

   http://cyberzoide.developpez.com
                 

***************************************************************}

Program arrets1 ;

Var i, x : Integer ;

BEGIN
x:=0;
Repeat
Inc(i) ;
Break ;
x:=50 ;
Continue ;
Until i>10 ;
WriteLn(x) ;
END.