Обчислити значення виразу:(f(х))/(f(у))^2 ; f(х)=tan(x)*(x^x).
Як записати умови існування для тангенсу і, що на 0 ділити не можна???
var
  x_, y_: real;
function Fx(x: real): real;
begin
  Fx := (sqr(sin(x / 2) / cos(x / 2))) * (exp(x * ln(x)));
end;

function Fy(y: real): real;
begin
  Fy :=(exp(2 * ln(y)));
end;

begin
  write('Введіть x та y : ');
  readln(x_, y_);
  writeln('Результат = ',Fx(x_)/Fy(y_));
end.