Const x0=-3;xk=5;h=0.5;
var x,y,z:real; n,i:integer;
begin
n:=round((xk-x0)/h)+1;
x:=x0-h;
for i:=1 to n do
begin
x:=x+h;
y:=sqrt(sqr(x)+2);
z:=sqrt(sqr(x)*sqr(x)+1);
if abs(y-z)>10 then
writeln(x:4:1,y:7:4,' ',z:7:4);
end;
end.
Результат:
4.0 4.2426 16.0312
4.5 4.7170 20.2747
5.0 5.1962 25.0200