Find the area of square by accepting the length.

CLS

input "Enter the length:",L

A = L ^ 2

Print "Area of square:";A

END