Втурбо паскале..вычислить следующее выражение при x = 10, y = 3: z = (sin37+cos73+tg23)/(x^2-2xy^2+y^4) ^ -возведение в степень.

Uses
  Crt;
const
  Pi=3.14159265;
var
  x,y,z:real;
begin
  ClrScr;
  x:=10; y:=3;
  z:=sin(37*Pi/180)+cos(73*Pi/180)+sin(23*Pi/180)/cos(23*Pi/180);
  z:=z/(sqr(x)-2*x*sqr(y)+sqr(sqr(y)));
  Writeln(z);
  ReadKey
end.

Результат выполнения программы
 1.3186615443E+00