Enigme : A quel âge est mort "Diophante d'Alexendrie" ?

rem ============================================================================
rem      Enigme : A quel âge est mort "Diophante d'Alexendrie" ?
rem ============================================================================
dim t$
color 0,200,100,50
alpha 10 : font_bold 10 : font_name 10,"arial" : font_size 10,12
top 10,50 : left 10,20 : font_color 10,255,255,255
t$ = "Sur la tombe de Diophante d'Alexabdrie, était écrit l'épitaphe suivante :" + chr$(13) +chr$(13)
caption 10,t$
alpha 20 : font_bold 20 : font_name 20,"arial" : font_size 20,12
top 20,100 : left 20,50 : font_color 20,0,255,255
t$ = ""
t$ = t$ + "Passant sous ce tombeau repose Diophante." + chr$(13)
t$ = t$ + "Ces quelques vers tracés par une main savante" + chr$(13)
t$ = t$ + "Vont te faire connaître à quel âge il est mort." + chr$(13)
t$ = t$ + "Des jours assez nombreux que lui compta le sort," + chr$(13)
t$ = t$ + "Le sixième marqua le temps de son enfance;" + chr$(13)
t$ = t$ + "Le douzième fut pris par son adolescence. " + chr$(13)
t$ = t$ + "Des sept parts de sa vie, une encore s'écoula," + chr$(13)
t$ = t$ + "Puis s'étant marié, sa femme lui donna" + chr$(13)
t$ = t$ + "Cinq ans après un fils, qui, du destin sévère," + chr$(13)
t$ = t$ + "Reçut de jours hélas! deux fois moins que son père." + chr$(13)
t$ = t$ + "De quatre ans, dans les pleurs, celui-ci survécut." + chr$(13)
t$ = t$ + "Dis, si tu sais compter, à quel âge il mourut."

caption 20,t$
alpha 30 : : font_bold 30 : font_name 30,"arial" : font_size 30,14
top 30,400 : left 30,50 : font_color 30,255,255,0
t$ = "Sauriez-vous résoudre cette énigme ?"
caption 30,t$
end
rem ============================================================================