To find the area of cirlce (Qbasic Code)

CLS
INPUT "Enter the radius of circle"; r
LET pie = 3.14
a = pie * r ^ 2
PRINT "The area of the circle is"; a
END