area of square

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