10 INPUT A,B,H:P=0'ς-ΖΜΑΦΟΛ!
20 A1=A:B1=B:H1=H
25 X=A1
30 IF X>=(A+B)/2ANDP=0 THEN P=1:A=(A+B)/2:H=H/2:GOTO 20
35 PRINT X;SIN(X)
40 X=X+H1:IF X<=B1 GOTO 30