Wap to find area of square

CLS
INPUT "ENTER LENGTH"L
A=L^B
PRINT "AREA IF SQUARE";A
END