https://remp3indir.net/pascal-basic-program-practical/