Поменяй функцию и все. Просто я не понял что за x2. типа скр(х) или х*2.
Дал тебе свой пример, сам себе писал, работал.
program Tabul;
Uses crt;
var x,x1,h,y:real;
begin
clrscr;
writeln(' x y ');
x:=-1;
x1:=1;
h:=0.1;
while x<=x1 do<br>begin
y:=(sqrt(sqr(x)+3))/(2-x);
writeln(x:6:1, y:9:2);
x:=x+h;
end;
Readkey;
end.