WAP to find area of square.
CLS
INPUT  " Enter length "; L
A =  L ^ 2
PRINT  " Area of square = " ; A
END