90 поинтов!! СРОЧНО!!! Пожалуйста посчитайте НАПИСАТЬ ПРОГРАММУ ВЫЧИСЛЕНИЯ ЭТОГО ВЫРАЖЕНИЯ В ПАСКАЛЕ

var
  y,a,c,x:real;
begin
  a:=4; c:=5; x:=2.2;
  y:=a+c;
  Write((sqrt(2*a)+x*x*x)/(1/tan(c)+y)-a*a)
end.


-14.4517305299199