Помогите решить в Паскаль. вывести значение функции y при х, изменяющемся от x1 до x2 с шагом h. Y=ln(x)/x

program q171632934;
var
i, x1, x2, h: real;
begin
Write('X1 = ');
ReadLn(x1);
Write('X2 = ');
ReadLn(x2);
Write('h = ');
ReadLn(h);
i := x1;
while i <= x2 do
begin
WriteLn(ln(i)/i);
i := i + h;
end;
ReadLn;
end.