Написать алгоритм вычисления по формуле: y=(1-x^2+2,5x^3+x^4)^2

Program enot;
Var x:integer;
 y:real;
begin
Write('Введите х: ');
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.