Задача с While. Опции

[pepper]

Помогите решить задачу.
Условие задачи в прикрепленном файле.
Заранее благодарен.

[klem4]

{$n+}
uses crt;
const
   start = 1.909;
   stop  = 6.23;
     dx  = 1.005;
     t   = 10;
function L(x:extended):extended;
begin
   l:=sqrt(1+sqr(x))+t;
end;

var x:extended;

Begin
   clrscr;
   x:=start;
   while x<=stop+dx/2 do
    begin
       writeln('x=',x:3:5,'   l=',l(x):7:5);
       x:=x+dx;
    end;
   readln;
end.