Задача на табулирование функции в паскале

[Катя Миронова]

помогите, пожалуйста, найти ошибку. программирование только началось, поэтому не очень разбираюсь(
нужно протабулировать функцию lg(1-x)/(1+x)
я написала программу, но после ввода промежутка и шага она просто вылетает и не исполняется
вот код

program one;
var x,a,b,dx,y:real;
begin
writeln('Введите dx,a,b');
read(dx,a,b);
x:=a;
while x<=b do
begin
y:=ln((1-x)/(1+x))/ln(10);
writeln(x:5:2,y:5:2);
x:=x+dx;
end;
end.

я ввожу например шаг 0.001 и промежуток из области определения, например, 0.1 и 0.9
и она не работает
помогите, пожалуйста

[Stilet]

read(dx,a,b);

Замени на readln(dx,a,b);
и перед последним эндом поставь readln чтоб консоль не схлопывалась.

[Катя Миронова]

Спасибо большое!

[Mad_Cat]

перед последним эндом поставь readln

а не перед предпоследним

program one;
var x,a,b,dx,y:real;
begin
writeln('Введите dx,a,b');
read(dx,a,b);
x:=a;
while x<=b do
begin
y:=ln((1-x)/(1+x))/ln(10);
writeln(x:5:2,y:5:2);
x:=x+dx;
end;
readln;
end.

[Stilet]

а не перед предпоследним

Ни в коем случае