Составить программу на алгоритмическом языке бейсик y=tgx-2x-tgπ/6+π/3 при π/6< =x< =π/3 h=π/30 нужно

MS DOS QBasic 1.0

CLS
pi = 4 * ATN(1)
FOR x = pi / 6 TO pi / 3 STEP pi / 30
   y = TAN(x) - 2 * x - TAN(pi / 6) + pi / 3
   PRINT x, y
NEXT x

Результат

 .5235988      0
 .6283185     -6.024725E-02
 .7330383     -9.582524E-02
 .8377581     -9.505627E-02
 .9424778     -3.872636E-02
 1.047198      .1075031