Mencari akar dengan Bolzano

Ini adalah coding program mencari akar dengan metode Bolzano.

PROGRAM BOLZANO;
USES CRT;
FUNCTION F(X:REAL):REAL;
BEGIN
F:=EXP(X)-4*X;
END;
VAR X,A,B,E,T : REAL;
BEGIN
CLRSCR;
WRITE('MASUKKAN A=');READLN(A);
WRITE('MASUKKAN B=');READLN(B);
E := 0.0001;
REPEAT
T := (A+B)/2;
IF F(A)*F(T) <0 ke="',X:0:0,'" t =" ',t:0:7);">
writeln;
WRITE ('Akarnya adalah = ',T:0:7);
READLN;
END.

Ubahlah fungsi f sesuai dengan kebutuhan.