Q-BASIC PROGRAM (AREA)

 DECLARE FUNCTION Area(l,b)

CLS 

INPUT "Enter length "; l 

INPUT"Enter Breadth"; b 

PRINT Area( l , b )

END 

FUNCTION Area(l,b)

A=l*b 

Area = A 

END FUNCTION