Дана длина куба. Найти объем куба и площадь его боковой поверхности- QBasic(Бейсик)

CLS
PRINT "Vvedite dlinu kuba: ";: INPUT dl%
PRINT "ob'em:"; dl% ^ 3
PRINT "ploschad':"; dl% ^ 2

DIM a AS DOUBLE, f AS DOUBLE
CLS
PRINT "Vvedite znachenye a:"; : INPUT a
f = (a*a+1)/SQR(a*a+1)
PRINT "otvet: "; f