[qazwsx]

Код, который вычисляет значение у от х:

Код:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,math;

  var
  x,y,fx,tm1,tm2,tm3:real;

begin
  { TODO -oUser -cConsole Main : Insert code here }

  writeln('X=');
  readln(x);
  writeln('Y=');
  readln(y);

  tm1:=cos(power(x,1/3));
  tm2:=ln( power(2,x)+power(abs(x),2*tan(x)) )/ln(10);
  tm3:=arcsin(tm1/(tm1*tm1+7));
  fx:=sqrt(abs(tm3+power(tm2,5)));
  writeln(fx);
  readln;

end.

осталось проверить попадает ли точка ху в ромб.