// PascalABC.Net 3.0, сборка 1052
const
a=-6; b=6; h=1;
begin
for var x:=a to b do Writeln('x=',x:2,', y=',ln(sqr(x)-9)/x)
end.
Результат выполнения программы:
x=-6, y=-0.549306144334055
x=-5, y=-0.554517744447956
x=-4, y=-0.486477537263828
x=-3, y=бесконечность
x=-2, y=NaN
x=-1, y=NaN
x= 0, y=NaN
x= 1, y=NaN
x= 2, y=NaN
x= 3, y=-бесконечность
x= 4, y=0.486477537263828
x= 5, y=0.554517744447956
x= 6, y=0.549306144334055
Примечание: NaN система выдает, если не может выполнить какое-то действие. В данном случае под знаком логарифма оказывается неположительное число.