https://remp3indir.net/program-pascal-array/