This works out an area of a of a circle

This program works out the area of a circle when the radius is entered

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    print "This program will work out the are of a circle"
wait key
ClS
print "Enter radius: "
input radius
CLS
area = 3.141592654 * radius * radius
print "The area of a circle with the radius of ";radius ;" is ";area
wait key