Circle stuff

'Robbin Swanink
'15/11/2017
module Circle
    sub main
            Dim circle_diameter as integer
            Dim circle_radius as decimal
            Dim circle_area as decimal
            Dim circle_circum as decimal
            Dim circle_arc_angle as decimal
            Dim circle_arc_length as decimal

            Console.Writeline("Hello!")
            Console.Writeline("Please enter the diameter of a circle.")
            circle_diameter = Console.Readline
            circle_radius = circle_diameter/2
            circle_area = circle_radius*3.14
            circle_circum = circle_diameter*3.14

            Console.Writeline(circle_radius)
            Console.Writeline(circle_area)
            Console.Writeline(circle_circum)

            Console.Writeline("Please enter the arc angle")
            circle_arc_angle = Console.Readline
            circle_arc_length = (circle_circum*circle_arc_angle)/360
            'Decimal.Round(circle_arc_length, 2)
            Console.Writeline(circle_arc_length)
    end sub
end module