WAP to find the area of square

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