Exercice 4

program devine;
var
c, x, m, coup: integer;

begin
GetDateTime(UInt32(qd.randSeed)); { Uniquement sur Mac, pour ne pas avoir le meme nombre aléatoire a chaque fois. }
writeln('Devinette par: http://www.Software-DS.com');
writeln;
c := Random;
coup := 0;

repeat
writeln('Votre nombre ? ');
readln(x);
coup := coup + 1;
if x > c then
writeln('Trop grand !')
else if x < c then
writeln('Trop petit !');
until x = c;

writeln('Bravo, vous avez gagnez en ', coup : 0, ' coups');
{ ©2001 All Rights Reserved to http://www.Software-DS.com 02/10/01 }
end.