несколько раз пробовала сделать, но все время в паскале выдает разные

// PascalABC.NET
var
  a,c,x,f,y:real;
begin
  Write('a,c,x,f=');
  Read(a,c,x,f);
  y:=7*Sqrt(Power(a,5)-4*c)*Cos(Sqr(Tan(5)))/
  (Sin(2)*Power(Cos(x-a*a),4))*
  Power(a,2*x+1)*Sqrt(Абс(Cos(Sin(x*x))));
  Writeln('y=',y)
end.
 
Итог
a,c,x,f=5 3 3 3
y=13459606.2123948