Programmation

program ElHadi213

var i,nb,min,max:integer;
begin
randomize; // une seule fois dans un programme

for i:=1 to 15 do
    begin
    min:=1+random(100);        // un nombre entre 1 et 100
    max:=min+random(3*min+1);  // un nombre entre min et 4*min
    nb:=min+random(max-min+1); // un nombre entre min et max
    writeln('alea(',min,',',max,')=',nb);
    end;

writeln; write('Fin du programme. Appuyer sur Entree'); readln;
end.