Помогите перевестить формулу на язык Delphi

[neomaximus]

Помогите с переводом формулы Заанее премного благодарен

[alex_fcsm]

g:=2*sqr(f(x));
if (x*b>0.5)and(x*b<10) then g:=exp(f(x)-abs(b))
else if (x*b>0.1)and(x*b<0.5) then g:=sqrt(f(x)+b);