Program to find Area of Square in QBASIC
CLS
INPUT "Area of Square"; s
a = s ^ 2
PRINT "Area="; a
END