Помогите разобрать скрипт Pascal

Подскажите что он делает\как высчитывает. И если можно по шагам. Pascal
1. часть - http://imglink.ru/show-image.php?id=19ec6b9a12042be10eaf340ddd978ab6
2. часть http://imglink.ru/show-image.php?id=3758b4160b63104db811ce277cc0fadd
3. часть http://imglink.ru/show-image.php?id=bc10123f14e3bcfc9adfc704d385a956