10 PRINT TAB(10);" ' '"
20 PRINT TAB(8);" F(X)":PRINT
30 PRINT" (-)";
40 INPUT A$:PRINT:IF A$="" THEN 90
50 PRINT" 350, X,"
60 PRINT" - F F(X)."
70 PRINT:PRINT" , ."
80 GOTO 240
90 PRINT" A,B- ";:INPUT A,B
100 PRINT"E- ";:INPUT E
110 Y=(3-SQR(5))/2*(B-A):X1=A:X2=A+Y:X3=B-Y:X4=B
120 X=X2:GOSUB 250
130 F2=F:X=X3:GOSUB 250
140 F3=F:X5=(X1+X4)/2
150 IF X4-X1 160 IF F2 170 X5=X3:F5=F3:X1=X2:X2=X3:F2=F3:X=X4-X2+X1:GOSUB 250
180 F3=F:X3=X:GOTO 150
190 X5=X2:F5=F2:X4=X3:X3=X2:F3=F2:X=X1+X4-X3:GOSUB 250
200 F2=F:X2=X:GOTO 150
210 PRINT:PRINT" F(X) X=";X5
220 PRINT TAB(12);" F=";F5
240 END
250 F=3*(X-2)*(X-2)+4
260 RETURN
270 END
"ϲ" - . .