PascalABC.NET
begin
var x := ReadReal('x =');
var F: real;
if x > 0 then
F := Ln(x) + 9
else
F := x / (x * x - 7);
Println('F(x) =', F)
end.
