WAP to find area fo square

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