QBASIC

WAP TO FIND AREA OF CIRCLE

CLS

INPUT "Enter radius" r

A =22 / 7 * r ^ 2

PRINT "Area of circle"; A

END