Вычислить и вывести на экран значение функции при некоторых значениях аргумента

{$mode objfpc}
uses Classes, Math;
 
type
TMyThread = class(TThread)
  private
      x,y,res:double;
      type TGR = (rad,grad);
      procedure SetGr(const _gr:TGR);
  protected
      gr:TGR;
      procedure Execute;
      function ctg(const _x:double): double;
      function arctg(const _x:double): double;
  public
      constructor Create(const _x,_y:double);
      property scal: TGR write SetGr;
      property z: double read res;
end;
 
function TMyThread.ctg(const _x:double): double;
begin
 if sin(_x)<>0 then
   result:= cos(_x)/sin(_x)
 else
   result:=Infinity*sign(cos(_x))
end;   
 
function TMyThread.arctg(const _x:double): double;
begin
 result:= arctan(_x);
end;
 
constructor TMyThread.Create(const _x,_y:double);
begin
  x:=_x;
  y:=_y;
end;
 
procedure TMyThread.SetGr(const _gr:TGR);
begin
  gr:=_gr;
  Self.Execute;
end;
 
procedure TMyThread.Execute;
var
  _x,_y:double;
begin
 case gr of
  grad:
   begin
     _x:=x*pi/180;
     _y:=y*pi/180;
   end
  else
   begin
     _x:=x;
     _y:=y;
   end;
 end;
 if (_x+_y>=0) then
   res:=ctg(_x+_y)+arctg(sqrt(_x+_y))
 else res:=NaN;
end;
 
 
var
  MyCalc:TMyThread;
  x,y:double;
 
begin
  Readln(x,y);
  MyCalc:=TMyThread.Create(x,y);
  with MyCalc do
  try
    scal:=grad;
    WriteLn('in grad : ',z:5:4);
 
    scal:=rad;
    WriteLn('in rad : ',z:5:4);
  finally
   Readln;
  end;
end.