Нарисовать пирамиду — QBasic(Бейсик)

CLS
SCREEN 9
FOR i = 1 TO 7
    LINE (0 + k1, 350 - k2)-(640 - k1, 305 - k2 - 1), , BF
    k1 = i * 45
    k2 = i * 49
NEXT