Есть тут программисты?⁠⁠

друзья, срочно нужна помощь...Завтра сессия. очень нужна ваша помощь в решении ( комменты для минусов оставлю ) п.с язык Паскаль