Вычислить и напечатать y=x-SQR(x),для х=2,6,18,54,… — QBasic(Бейсик)

x = 2
FOR i = 1 TO 7
    y = x - SQR(x)
    PRINT "x="; x; " y="; y
    x = x * 3
NEXT