Написать алгоритм вычисления по формуле:

y=(1-x^2+2,5x^3+x^4)^2

Program enot;Var x:integer; y:real;beginWrite('Введите х: ');read(x);y:= (1-x*x+2.5*x*x*x+x*x*x*x)*(1-x*x+2.5*x*x*x+x*x*x*x);write(y);end.