program circle
	write(*,*) "Enter the radius of your circle "
	read(*,*) radius
	area = radius * radius * 3.141592
	write(*,100) "Area = ", area
100	format(A,E8.3)
	stop
	end