Дан многочлен Р(х) степени N, действительное число А. Получить многочлен (х-А)Р(х). Нужен алгоритм или математическое представление.

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017// Внимание! Если программа не работает, обновите версию!begin  var n:=ReadInteger('Степень полинома:');  var p:=ReadArrReal('Коэффициенты полинома по убыванию степеней:',n+1);  var a:=ReadReal('Значение А:');  var q:=new real[n+2];  q[0]:=p[0];  q[n+1]:=-p[n]*a;  for var i:=1 to n do q[i]:=p[i]-a*p[i-1];  Writeln('Коэффициенты результирующего полинома');  q.Printlnend.Контрольный примерP(x)=3x²-4x+5, A=2.5(x-A)P(x)=3x³-11.5x²+15x-12.5Результат выполнения программыСтепень полинома: 2Коэффициенты полинома по убыванию степеней: 3 -4 5Значение А: 2.5Коэффициенты результирующего полинома3 -11.5 15 -12.5