AnnBel

DIM A(1 TO 17) AS INTEGER, I AS INTEGER, R AS INTEGER, Diff AS INTEGER
DIM LastI AS INTEGER
CLS
Min = 32767: LastI = 0
INPUT "Value: ", R
FOR I = 1 TO 17
    PRINT "A("; I; ") = ";
    INPUT "", A(I)
    Diff = A(I) - R
    IF Diff < 0 THEN Diff = -Diff
    IF Diff < Min THEN
        LastI = I
        Min = Diff
    END IF
NEXT I
PRINT "Index: "; LastI