M'aider à faire un exercice en algorithme

function CalculPrix(prixBase: Float, nbrPersonnes: Integer, nbrEnfants: Integer): Float;
var
         nbrAdult: Integer;
         lePrix : Float;
Begin
          nbrAdult := nbrPersonnes - nbrEnfants;
          lePrix := nbrEnfant * prixBase * 0.6;
          
           if nbrAdult < 4 then
                   lePrix := lePrix + (prixBase * nbrAdult)
           else
           begin
                   if nbrAdult < 8 then
                            lePrix := lePrix + (prixBase * nbrAdult * 0.9)
                   else
                             lePrix := lePrix + (prixBase * nbrAdult * 0.8);
           end;

          CalculPrix := lePrix;

end;