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


Program exemple22;{nom du programme, sert de nom pour l'ex‚cutable lors
                  de la compilation}
Uses crt;         {unit‚ utilis‚e}
Const max=100;    {borne sup‚rieure d'‚chelonnage des valeurs possibles}
Var test:boolean; {variable vrai si l'utilisateur entre le bon chiffre}
    x,y:integer;  {x:entr‚e par l'utilisateur, y:calcul‚e par l'ordinateur}

BEGIN             {d‚but du programme principal}
ClrScr;           {efface l'‚cran}
Randomize;        {r‚initalisation du g‚n‚rateur de nombres al‚atoires}
y:=Random(max);   {g‚n‚ration d'un nombre al‚atoire "y" compris
                  entre 0 et la borne sup‚rieure ‚gale … "max"}
Repeat            {d‚but de boucle conditionnelle}
 Write('Entrez un nombre : '); {message … l'‚cran vers l'utilisateur}
 ReadLn(x);       {saisie de la valeur entr‚e par l'utilisateur}
 test:=(x=y);     {la variable "test" prend la valeur "vraie" si "x=y" }
 If test Then WriteLn('Ok, en plein dans le mille.')
                  {si "test" est "true", alors, affichage … l'‚cran}
         Else If x>y Then WriteLn('Trop grand.')  {si "x>y" alors affichage}
                     Else writeln('Trop petit.'); {sinon, autre affichage}
Until test;       {fin de boucle si "test" vaut "true"}
ReadLn;           {pause}
END.              {fin du programme}