Program to find Perimeter of Square in QBASIC
CLS
INPUT "Perimeter of Square"; s
p = s * 4
PRINT "Perimeter="; p
END