Скопируйте программу в среду программирования, модифицируйте таким образом, чтобы она находила отрицательное решение уравнения \(x^2-5x-8=0\) . В ответ запишите значение, которое выдает программа с точностью до трех знаков, если eps = 0.001
var
delta, eps, b, a, c, x:real;

function f\(x:real\):real;
begin
f := x*x-2;
end;

Begin
a:=1;
b:=2;
eps:=0.01;
delta:=2*eps;
while b-a>delta do begin
c:=\(a\+b\)/2;
if f\(a\)*f\(c\)<=0 then
b:=c
else a:=c;
writeln('x = ', \(a\+b\)/2:6:3);
end;
writeln('x = ', \(a\+b\)/2:6:3);
End.