Составить на паскале

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

var
  x: LongInt;
  
begin
  readln(x);
  writeln(String.Format('y=(1-{0}^2+5*{0}^4)^2={1}', x, sqr((1-sqr(x)+5*power(x, 4)))));
end.