Напишите программный код на языке Паскаль для вычисления модуля разности максимального и минимального значений игрик

Код программы:

var

x,fi,min,max:real;

begin

x:=-360;

min:=tan(power(x,3))*sin(x);

max:=tan(power(x,3))*sin(x);

while (x=360) do

begin

fi:=tan(power(x,3))*sin(x);

writeln('x = ...