Составить программу в PascalABCNET

[Ihuman]

Помогите прошу: Вычислить значение функции F в зависимости от значения аргумента Х, объявив переменные a, b постоянными

14.2x + ax, если x=1,41
F= sin3x - cos22x, 1<=x<=1,41
tgx - 1/cosax, в остальных случаях

a=9,89
b=4,84
x=0,14/2ab

20161130_095316.jpg

[newerow1989]

function f(x,a:real):real;
begin
   If x=1.41 then
      Result:=14.2*x+a*x else
   If (1<=x) and (x<1.41) then
      Result:=Sin(3*x)-Cos(2*x)*Cos(2*x) else
      Result:=Tan(x)-1/Cos(a*x);
end;

const a=9.89;
      b=4.84;
      x=0.14/(2*a*b);
begin
   Writeln(f(x,a):5:2);
   Readln;
end.