Паскаль.Вычислить значение функции(задание во вложении).Нужно задать интервал без цикла,с помощью метки или еще как-то,а как это сделать не знаю,помогите пожалуйста
program lab3;
var x,y:real;
begin
x: = 0.1;
while x< = 1 do
begin
writeln('vvedite x');
readln(y);
if 1.5*x<1 then y: = 1.5*x-ln(1.5*x)/ln(10)
else if 1.5*x>1 then y: = 1.5*x+ln(1.5*x)/ln(10)
else y: = 1;
writeln('x = ',x:0:1,'y = ',y:5:3);
x: = x+0.1;
end;
end.