Program to find Perimeter of Triangle in QBASIC
CLS
INPUT "Perimeter of Triangle"; s, b, s
p = s + b + s
PRINT "Perimeter="; p
END