Area of circle and rectangle using sub...end sub