Составить программу вычисления значений функции F(x) на отрезке [a;b] с шагом h. F(x)=2tgx/2+1 — QBasic(Бейсик)

CLS
INPUT "a,b,h="; a, b, h
FOR x = a TO b STEP h
    y = 2 * TAN(x / 2) + 1
    PRINT "x="; x, "y="; y
NEXT x
END