To find out the area of rectangle. (Qbasic Code)

• CLS
  INPUT "Enter the lenght of rectangle"; l
  INPUT "Enter the breadth of rectangle"; b
  a = l * b
  PRINT "The area of rectangle is"; a
  END

See Also 
Using SUB Procedure (View)
Using FUNCTION Procedure (View)