На отрезке [1; 3] с шагом 0,5 протабулируйте функцию √x+2x\x-5

Program gt;
var y,x:real;
begin
x:=0.5;
while x<3 do
begin
x:=x+0.5;
y:=sqrt(x+2*x(x-5));
writeln(y);
end;
end.