Area of square

CLS
INPUT "Enter length";l
A=l^2
PRINT "Area of square=";A
END