Помогите с информатикой!!!
Const eps=0.001;
var delta,a,b,c,x:real;
function f(x:real):real;
begin
f:=5*cos(x-1)-x*x;
end;
begin
delta:=2*eps;
while b-a>delta do begin
c:=(a+b)/2;
if f(a)*(c)<=0 then
b:=c
else a:=c;
end;
writeln ('x = ', (a+b)/2:6:3);
end.
Программа в паскале почему то не читает строки
c:=(a+b)/2;
if f(a)*(c)<=0 then
b:=c
else a:=c;
end;
А сразу их перескакивает. Кто шарит в этой теме, буду благодарен, если скажет в чем ошибка и поможет исправить!!!