QBASIC

WAP TO FIND AREA OF SQUARE

CLS

INPUT "Enter length"; l

A = l ^ 2

PRINT "Area of square"; A

END