https://www.exosup.com/2015/09/cours-algorithmes-programmation-pascal.html