Qbasic to find area of square

Qbasic to find area of square

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