cls
print "CONSTRUCTION D'UN PROBLEME"
print
Input "Nombre de places à 6 € ",nb6
Input "Nombre de places à 4 € ",nb4
print
s=(nb6*1+nb4*1)
p6=(nb6*6)
p4=(nb4*4)
total =p6+p4

print " A la piscine, il existe le tarif enfant à 4 € et le tarif adulte à 6 €."
print " Il est entré en une heure "+s+" personnes et la recette s’élève à "+total+" €."
print "Quel est le nombre d’entrées de chaque sorte ?"
print
print "Vérification:"
print "6 € x "+nb6+" = "+p6+" €"
print "4 € x "+nb4+" = "+p4+" €"
print p6+" € +"+p4+" € = "+total+" €"
print
print  "Appuyez sur une touche "; 
input  "pour voir la solution ", a$
print "Solution du problème"
print
i=0
while(i<s)

j=s-i
# i c'est le nom de la variable nombre de places à 6 €
# j c'est le nom de la variable nombre de places à 4 €
p1=6*i
p2=4*j
s1=p1+p2
if (s1=total) then

print "(6 € x "+i+") + ( 4 € x "+j+")"
print p1+" € + "+p2+" € = "+s1+" € "
print "Il est donc entré "+i+" adultes (places à 6 €)";
print " et "+j+" enfants (places à 4 €)."
end if
i++
end while