Я правильно написал программу для нелинейного уравнения в basik?
tg(x)-x=0
10 DEF FNF(X)= tan(x)-x
20 NPUT A,B,E
30 C=(A+B)/2
40 IF FNF(C)=0 THEN A=C: B=C: GO TO 20
50 FNF(A)* FN F(C)<0 THEN B=C ELSE A=C
60IF B-A>E THEN 30
70 X=(A-B)/2
80 PRINT X
90 END