Imports System          

Public Module Module1

    const pie = math.PI

    Public Sub Main()

        dim radius, area, circ as single

        Console.writeline(pie)

        Console.WriteLine("Enter your radius")

        radius = console.readline() 

        ' funcs

        area = getarea(radius)

        circ = getcirc(radius)

        ' output

        subout(area, circ)

    End Sub

    function getarea(r as single) as single

        dim area as single

        area = pie * r ^ 2 

        return area

    end function

    function getcirc(rr as single) as single

        dim circ as single

        circ = 2 * pie * rr

        return circ

    end function

    sub subout(areao as single, circo as single)

        Console.WriteLine("area = " & areao)

        Console.WriteLine("circ = " & circo)

        ' round

        Console.WriteLine("area rounded = " & math.Round(areao, 2))

        Console.WriteLine("circ rounded = " & math.Round(circo, 2))

        ' truncate

        Console.WriteLine("area truncated = " & (math.truncate(areao*100))/100)

        Console.WriteLine("circ truncated = " & (math.truncate(circo*100))/100)

    end sub

End Module