Area of the Circle Solver in LISP

A very simple program that I will ask the user to give the radius of the circle and then our program will compute the it's are using LISP as our programming language.

I am currently accepting programming work, it project, school 

programming projects , thesis and capstone projects, IT consulting 

work, computer tutorials and web development work kindly contact me in the following email address for further details.  If you want to advertise in my website kindly contact me also in my email address also. Thank you.

My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is  +63 (034) 4335675.

Sample Program Output

area.lisp

(defun AreaOfCircle()

   (terpri)

   (format t "Area of the Circle Solver ~%")

   (format t "~%~%")

   (format t "Created By Mr. Jake R. Pomperada, MAED-IT")

   (format t "~%~%")

   (princ "Enter Radius: ")

   (setq radius (read))

   (setq area (* 3.1416 radius radius))

   (format t "The Radius is = ~F~%The Area is ~F" radius area)

   (format t "~%~%")

   (format t "End of Program")

)

(AreaOfCircle)