Можно задачу решать так, как показано ниже (с использованием констант), а можно все данные вводить с клавиатуры.
const xn=-1.5; xk=1.5; h=0.1; b=2;
var x,y:real; i,n:integer;
begin
x:=xn-h;
n:=round((xk-xn)/h)+1;
writeln(' x y');
for i:=1 to n do
begin
x:=x+h;
if x<1 then y:=x*x-b*sqrt(abs(b*b-x))<br> else if x<9 then y:=cos(2*x)-x*x*x<br> else y:=ln(abs(2.7*x*x-exp(x)));
writeln(x:4:1,y:8:3);
end;
end.