Помогите пожалуйста решить задание (очень надо): Для заданного x вычислите y по формуле y=x^3+2,5x^2-x+1 при этом: 1. Операцию возведения в степень использовать запрещено. 2. В одном операторе присваивания можно использовать не более одной арифметической операции. 3. В программе не более 5 операторов присваивания.

Используем схему Горнера.
y = x³+2.5x²-x+1 = 1+x(-1+x(2.5+x))

var
  x,y:real;
begin
  Read(x);
  y:=x+2.5;
  y:=y*x;
  y:=y-1;
  y:=y*x;
  y:=y+1;
  Writeln(y)
end.