Составить программу нахождения первого наименьшего значения, аргумента и порядкового номера функции p=2*b^2-ln(a-c); b=0.75*a^2+c, если a меняется от -3 до 3 с шагом 0.5- QBasic(Бейсик)

INPUT "vvedite C ", c
minP = 1E+38
minB = 1E+38
FOR a = -3 TO 3 STEP .5
    b = .75 * a ^ 2 + c
    p = 2 * b ^ 2 - LOG(a - c)
    IF p < minP THEN minP = p: argP = a
    IF b < minB THEN minB = b: argB = a
NEXT
PRINT "funkciya      argment      minimum"
PRINT 1, argP, minP
PRINT 2, argB, minB