Qbasic to find volume of cube

CLS
INPUT "Enter Length"; L
V = L ^ 3
PRINT "Volume of cube=";V
END

Qbasic to find volume of box

CLS
INPUT "Enter the length"; L
INPUT "Enter the breadth": B
INPUT "Enter the height"; H
V = L*B*H
PRINT "Volume of box="; V
END

Qbasic to find Area of square

CLS
INPUT "Ente the length"; L
A = L^2
PRINT "Area of square="; A
END

Qbasic to find Area of four walls

CLS
INPUT "Enter the length"; L
INPUT "Enter the breadth"; B
INPUT "Enter the height"; H
A = 2*H*(L+B)
PRINT "Area of four walls="; A
END

Qbasic to find Area of Triangle

ClS
INPUT "Enter base"; B
INPUT "Enter height"; H
A = 1/2*B*H
PRINT "Area of triangle="; A
END

Qbasic to find Area of Circle

CLS
INPUT "Enter the radius"; R
A = 22/7*R^2
PRINT "Area of circle="; A
End

Qbasic to find Area of Rectangle

CLS
INPUT "Enter the length"; L
INPUT "Enter the breadth"; B
A = L*B
PRINT "Area of rectangle="; A
END