Написать программу для вычисления функции y с учетом одз. a,b,x- вводятся с клавиатуры

 var 
  a, b, x, y: Real; 
 
begin 
  Write('a: '); 
  ReadLn(a); 
  Write('b: '); 
  ReadLn(b); 
  Write('x: '); 
  ReadLn(x); 
   
  if x < 5 then 
  begin 
    y := (Power(x, 1/3) + a - 2.6 * b * x) / (tan(3 * x) + ln(Abs(x))); 
  end 
  else if x > 7 then 
  begin 
    y := Exp(a * x + b) - (a * x + b * x + 5) / (1.2 * Power(x, 2) + x); 
  end 
  else 
  begin 
    WriteLn('The function is not defined for 5 <= x <= 7.'); 
    Exit; 
  end; 
 
  WriteLn('The value of y is: ', y:0:4); 
end.