var y,x:real;
begin
  x := 1.23;
  y := sin(sqrt(x*x+0,1))+pow(e,x);
end;

var z,x,y:real;
  x := 1,23; y := 4,56;
  z:= (x*x*y + y*y*x + ln(x)) / (4 * abs(sin(x/3) + sqrt(y) ) );

function pow(A,B:real):real;
Var T:Real;
Begin
     T := Abs(A);
     If A < 0 Then Pow := (-1)*Exp(B*Ln(T))
              Else Pow := Exp(B*Ln(T));
End;