QBASIC Program to print the area of parallelogram (Using SUB/FUNCTION Procedure)

CLS
INPUT "Enter Breadth : "; b
INPUT "Enter Height : "; h
a = b * h
PRINT "Area of Parallelogram is : "; a
END

Using SUB Procedure

DECLARE SUB area(b,h)
CLS
INPUT "Enter Breadth : "; b
INPUT "Enter Height : "; h
CALL area(b, h)
END

SUB area (b, h)
     a = b * h
     PRINT "Area of Parallelogram is : "; a
END SUB

Using FUNCTION Procedure

DECLARE FUNCTION area(b,h)
CLS
INPUT "Enter Breadth : "; b
INPUT "Enter Height : "; h
a = area(b, h)
PRINT "Area of Parallelogram is : "; a
END

FUNCTION area (b, h)
     a = b * h
     area = a
END FUNCTION