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

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.Println
end.



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