Program to find Perimeter of Rectangle in QBASIC
CLS
INPUT "Enter Length of Rectangle"; l
INPUT “Enter Breadth of Rectangle”; b
p = 2 * ( l + b )
PRINT "Perimeter="; p
END