Решение задачи средствами Паскаль, Алгоритм решения задачи, Программа решения за Блок схема по коду паскаль