QBASIC program to display area of a rectangle by (SUB & FUNCTION Procedure)

CLS
INPUT "Enter Length : "; l
INPUT "Enter Breadth : "; b
area=l*b
PRINT "Area = "; area
END

Using SUB Procedure

DECLARE SUB areaRectangle(l,b)
CLS
INPUT "ENTER A LENGTH ";l
INPUT "ENTER A BREADTH";b
CALL areaRectangle(l,b)
END

SUB areaRectangle(l,b)
area=l*b
PRINT "AREA IS ";area
END SUB

Using FUNCTION Procedure

DECLARE FUNCTION areaRectangle(l,b)
CLS
INPUT "ENTER A LENGTH ";l
INPUT "ENTER A BREADTH";b
a = areaRectangle(l,b)
PRINT "Area = "; a
END

FUNCTION areaRectangle(l,b)
area=l*b
areaRectangle = area
END FUNCTION