Здравствуйте, luba tixomirova!
Вот решение под Delphi 7. Ввод из файла оставила, файл открывается через диалог. В заданиях 15.7 и 15.8 сначала формируется многочлен с повторяющимися степенями (т.е. такой, какой получился бы при ручном счёте), затем все элементы с равными степенями складываются. В 15.8 для вычисления P(x+1) применяется формула
Бинома Ньютона. Логику исходной программы не меняла, так что всё должно быть ясно.
Если что-то непонятно, или не так, как Вам нужно, пишите, поправлю.
Удачи!