На завтра написать программу программа вычислить значение функции f(x)={ln x+9/-x/x^2-7 еслиx> 0 если x меньше либо равно 0

Var x,f : real;
begin
write('x='); readln(x);
if x>0 then f:=ln(x)+9 else f:=-x/(x*x-7);
writeln('f(x) = ',f);
end.