Запишите выражение на языке паскаль

Программа, считающая значение этого выражения:

program Project1;

  var x, a, b, f:double;

begin

 writeln('Enter x: ');

 readln(x);

 writeln('Enter a: ');

 readln(a);

 writeln('Enter b: ');

 readln(b);

 f:=2*cos(x-pi/3)/exp(ln(a+(sin(b)* sin(b)))/x);

 writeln(f);

 readln;

end.    

Где выражение f:=2*cos(x-pi/3)/exp(ln(a+(sin(b)* sin(b)))/x);  является исходным выражением, записанным на паскале