Составить программу вычисления функции y=1-[latex] frac{sin(x)}{1-ln(x+1)} [/latex] при изменении аргумента x в интервале [latex] 0.1leq x geq 3[/latex] с шагом h=0.1

Число повторений цикла = целая часть [(3-0.1)/0.1]+1 = 30// PascalABC.NET 3.2, сборка 1383 от 09.02.2017begin  for var i:=1 to 30 do begin    var x:=0.1*(i-1)+0.1; var y:=1-sin(x)/(1-ln(x+0.1));    Writeln(x:3:1,y:15:5)    endend.Результат0.1        0.961740.2        0.909860.3        0.845790.4        0.770000.5        0.682670.6        0.583800.7        0.473310.8        0.351020.9        0.216671.0        0.069881.1       -0.089921.2       -0.263551.3       -0.452171.4       -0.657511.5       -0.882081.6       -1.129601.7       -1.405711.8       -1.719131.9       -2.083892.0       -2.523552.1       -3.080552.2       -3.838662.3       -4.988102.4       -7.069162.5      -12.452272.6      -75.390642.7       15.429042.8        6.176702.9        3.426163.0        2.07396