Qbasic to find area of four walls

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