Составить программу.

var x,h: real;

function y(x: real): real;
begin
  y:=1-(sin(x))/(1-ln(x+1));
end;
// основная программа
begin
  x:=0.1;
  h:=0.1;
  writeln('-------------------');
  writeln('|  x    |    y    |');
  writeln('-------------------');
  repeat
    writeln('|',x:6:1,' |',y(x):7:3, '  |');
    x:=x+h;  
  until x>=3.1;
  writeln('-------------------');
end.