function Minimise (var meilleur:coup) :integer;
    {minimise un coup de l'adversaire de l'ordinateur}
    var Resultat,Minimum: integer;
        Ci:coup;
    begin
      Minimum:=32000;    {plus grand que tout résultat d'évaluation}
      [*** tant qu'il y a un coup jouable Ci ***]
        jouer(Ci);
        Resultat:=evalue;   {appel de la fonction d'évaluation}
        dejoue(Ci);
        if (Resultat<Minimum) then begin
           Minimum:=Resultat;
           Meilleur:=Ci;
        end;  {if}
      [*** fin du tant que ***]
      Minimise:=Minimum;
    end;

    function Maximise (var meilleur:coup) :integer;
    {maximise un coup de l'ordinateur}
    var Resultat,Maximum: integer;
        Ci,Reponse:coup;
    begin
      Maximum:=-32000;    {plus petit que tout résultat d'évaluation}
      [*** tant qu'il y a un coup jouable Ci ***]
        jouer(Ci);
        Resultat:=Minimise(Reponse);
        dejoue(Ci);
        if (Resultat>Maximum) then begin
           Maximum:=Resultat;
           Meilleur:=Ci;
        end;  {if}
      [*** fin du tant que ***]
      Maximise:=Maximum;
    end;