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

// 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(Abs(Cos(Sin(x*x))));
Writeln('y=',y)
end.

Результат
a,c,x,f=5 3 3 3
y=13459606.2123948