Module Module1

    Sub Main()
        Dim r, area, PI As Integer
        Console.WriteLine("enter radius of a circle")
        r = Console.ReadLine()
        PI = 3.1415
        area = PI * r * r
        Console.WriteLine("area of circle =" & area)
        Console.ReadKey()


    End Sub

End Module
