Составить программу вычисления функции - Pascal ABC (12499)

Составить программу вычисления функции y=1-(sin(x))/(1-ln(x+1)) при изменении аргумента x в интервале 0,1<=x<=3,0 с шагом h=0,1

Листинг программы

var x,y:real;
begin
x:=0.1;
while x<3.1 do
 begin
  y:=(1-sin(x))/(1-ln(x+1));
  writeln('x=',x:4:1,' y=',y:6:2);
  x:=x+0.1;
 end;
end.

Объяснение кода листинга программы

Объявляются две переменные типа real: x и y.
Значение переменной x устанавливается равным 0.1.
Задается условие для цикла while: x < 3.1.
Запускается цикл while, который выполняется, пока значение переменной x не станет больше или равно 3.1.
Внутри цикла присваивается значение переменной y: (1-sin(x))/(1-ln(x+1)).
Выводится строка 'x=', с последующим выводом значения переменной x в формате 4:1, и строка ' y=', с последующим выводом значения переменной y в формате 6:2.
Значение переменной x увеличивается на 0.1.
Цикл while повторяется, пока условие не будет выполнено.