((sinx+cosy)/(cosx-siny))*tgxy написать программу на языке паскаль

PascalABC.NET 3.3.5, сборка 1648 от 31.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (x,y):=ReadReal2('x,y=');
  Writeln((Sin(x)+cos(y))/(Cos(x)-Sin(y))*Tan(x*y))
end.