WAP to display the area of circle

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