Организация разветвленных вычислительных процессов (delphi7)

[Серик KRG]

" Организация разветвленных вычислительных процессов"
Delphi7
3,14 ax/tg bx , если x<=2
F = 4,54(a-b)/cos2x , если 2<x<14
cos x-1/tg x , если x>=14

a=6,33; b=8,44;
помогите решить!

[evg_m]

function F(const a,b: real; x: real): real;
begin
  if x<=2      then result:=3.14*a*x/tg(x) //3,14 ax/tg bx , если x<=2 
  else if x<14 then result:=4.54*(a-b)/cos(2*x) //F = 4,54(a-b)/cos2x , если 2<x<14 
  else              result:=cos(x)-1/tg(x) // cos x-1/tg x , если x>=14 
 ;
end;

Куда и как вставлять можете поэксперементировать сами.
В коде возможны ошибки Неверные имена стандартных функций.а также неправильное прочтение формул вычисления.

x:=7/8;
y:=F(6.33, 8.44, x);