cls
l1$="Un escargot grimpe le long d'un puits de 12 mètres de haut. Il parcourt 3 mètres chaque jour, mais il glisse de 2 mètres chaque nuit."
l2$="Combien lui faudra-t-il de jours pour sortir du puits ?"
print l1$
print l2$
print "------------------------------------------"
print "Chaque jour il progresse (3 - 2) de 1 mètre. Mais s'il arrive au sommet, le soir, il ne va pas redescendre pour le plaisir sportif de remonter le lendemain."
print "------------------------------------------"
i=1
h=0
while(i<=12)

h=h+3
print "Jour N° "+i+" Soir  : "+h+" m."
if(h=12) then
print "Il sortira donc du trou au soir du "+i+"e jour."
end
end if
h=h-2
print "Matin : "+h+" m"
print
i++
end while