abs
и iabs
возвращают абсолютное значение своего входного параметра.DIM A, B, M, R, T AS INTEGER
A = -10 : B = 10
M = A : R = F(A)
FOR T = A TO B
IF F(T + 1) <= R THEN
M = T : R = F(T)
END IF
NEXT T
PRINT M - R
FUNCTION F(x)
F = abs(9 - (x - 3) * (x - 3)) - 2
END FUNCTION