Составьте программу: y=10/x-1 + sin x на промежутке [2; 4], шагом 0,1.

Var 
x:real;
begin
 x:=2;
 while x<4.1 do
 begin
   writeln('x=',x,' y=',10/(x-1)+sin(x));
    x:=x+1/10;
 end;
end.