Вопрос Помогите с программой на Pascal

[egori4]

Условия задачи и написанная программа. Нужно объяснить, что значит каждая строчка и каждая функция в этой программе.
Помогите, кому не сложно
Заранее огромное спасибо!!!
//otvet.imgsmail.ru/download/210989361_074301c51b49acd16e3f23db4e6c8b2a_120x120.jpg//otvet.imgsmail.ru/download/210989361_8724cebcc9b48dae74cd893b5d0dcd03_120x120.jpg

 

[Dimon]

И чего тут объяснять? Одни присваивания, зачем то описана и используется хренова куча ненужных промежуточных переменных... Задача решается в 2 строки. Ввод и вывод с расчетом.

 

[serjilio77777]

Хорошее фото. Тени приятные. На что снимаешь?