https://minasoftprogrammation.blogspot.com/2016/07/pascal.html