ax+ sin bx если=0 F- 3.43x2 -In если x> 0 - 2.14cosx, если x< 0 помогите составить программу на паскаль



function ctg(x: real): real; begin   ctg := cos(x) / sin(x); end;   var   f, x, a, b, h: real;   begin   readln(a, b, h);   x := a;   repeat     f := cos(x) + ctg(x);     writeln(x:8:2, f:8:2);     x := x + h;   until x > b; end.