DIM A, B, T, M, R AS INTEGER
A = -10; B = 20
M = A: R = F(A)
FOR T = A TO B
   IF F(T) > R THEN
      M = T
      R = F(T)
   END IF
NEXT T
PRINT R

FUNCTION F(x)
   F = 21 - 19*(x-1)*(x-1);
END FUNCTION