WAP to find area of citcle

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