Определение максимального и минимального значений. Turbo Basic

[junita]

составить программу рассчета значений ф-ции y=a*x^4+b*x^3+c и определение её минимального и максимального значений при изменении x от х0 до хn с шагом dn.
Не могу понять почему неправильно считает

cls
Input "Vvedite a, b, c ", a, b, c
Input "Vvedite X0, XN, XD ", xo, xn, xd
max=-1E-37
min=1E+37
FOR x=xo to xn STEP xd
A=(a*(x^4))+(b*(x^3))+c
IF A>=max THEN max=A
IF A<=min THEN min=A
NEXT x
PRINT "Max=", max, "Min=", min
END

[Utkin]

У тебя дважды одна переменная а и А. Это одно и тоже. Выбери для А другое имя. Например Rez.

[junita]

Спасибо, все работает