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

[neomaximus]

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

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);
g:=2*sqr(f(x));

Заранее премного благодарен!!

[Cannibal]

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);
elseg:=2*sqr(f(x));

[puporev]

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(abs(f(x)+b))
else g:=2*sqr(f(x));