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

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