Напишите программный код на языке Паскаль для вычисления модуля разности максимального и минимального значений y, если y=((tg x)^3)*sin x, -2pi<=x<=2pi, при шаге pi/4.

program fun;

uses Math;

const pi = 3.14;

var x, y, min_, max_: real;

begin

 x := -2 * pi;

 min_ := -1000000;

 max_ := 1000000;

 while (x <= 2 * pi) do begin

   y := power(sin(x) / cos(x), 3) * sin(x);

   if (y > max_) then

     max_ := y;

   if (y < min_) then

     min_ := y;

   x += pi / 4;

 end;

 WriteLn(abs(max_ - min_));

end.