Area of circle

CLS
INPUT "Enter radius";r
A=22/7*r^2
PRINT "Area of circle=";r
END