Задание в Pascal : создайте алгоритм и программу для вычисления значения выражения.

1. uses Math;
2. var
3.    Z, x, a, b: real;
4. begin
5.    Write('<~ Input x, a and b: ');
6.    Readln(x, a, b);
7.    
8.    Z := (6 * Tan(x) + x*x*x * Sin(x / 2)) / (1 + a*a * b * (2*a - b));
9.    
10.    Writeln('Z: ', Z);
11. end.