[Bargest]

Код:

f := sqr(x)*sqr(x)/7+a
...
begin
  sinx := sin(2*a*x+pi);
  f := sqr(sinx)*sinx;
end;