program kaprekar;
Var i,k,n: integer;

Program Parfait;
Var nb, d, som, a, b : integer;

Program Racine;
Var x : Real;

Program Aire_Triangle;
Var a, b, c, Surf, P : Real;

Program Max3;
Var a, b, c, maxi : Integer;

Program Parite;
Var

Program Sup_Inf;
Var a, b : Integer;
sie : String ;