Мот ещё и 3-ю задачку кто проверит ?

Program kr;
Uses Crt ;
Var
a,b,c,a0,b0:real;

Function f(x:real):real;
begin
{formula }
f:=sqrt(1-0.4*sqr(x))-arctan(x/sqrt(1-x*x));
end;

Begin
ClrScr;
Writeln(' reshenie ');
{ vvod dannix }
a:=0; b:=1;
a0:=a; b0:=b; { zapominaem dannie }
{ na4inaem ras4et }
begin
c:=(a+/2;
if f(a)*f(с)<=0 then b:=c
else a:=c;
end;
Writeln(' yravnenie sqrt(1-0.4*sqr(x))-arctan(x/sqrt(1-x*x)) na otrezke [',a0:4:1, ',',
b0:4:1, '] imeet koren x = ', c:10:8);
Writeln(' f(x) = ',f(с):10:8);

Readln;
End.