PROCEDURE Min ( a, b : integer ;
var inf : integer );
BEGIN
if a < b then inf := a
else inf := b;
END
PROCEDURE Max ( a, b : integer ;
var sup : integer );
BEGIN
if a > b then sup := a
else sup := b;
END;
bonne chance ma soeur j ai essyé de t'aidé j'espere que ca vas marcher avec toi