Program Min2;
Var a, b , min : integer; 
Begin 
Writeln ('saisir deux entiers : '); 
Readln(a,b);
If a<b Then min:=a
Else min:=b;
Writeln ('le minimum de deux entiers est : ', min);
End.