Imports System

Public Module Module1

    Sub Main()

        Console.WriteLine("Hello World")

​

        ' تعريف المتغيرات

        Dim radius As Double

        Dim circumference As Double

​

        ' طلب إدخال نصف القطر من المستخدم

        Console.WriteLine("أدخل نصف قطر الدائرة:")

        radius = Convert.ToDouble(Console.ReadLine())

​

        ' حساب محيط الدائرة

        circumference = 2 * Math.PI * radius

​

        ' عرض النتائج

        Console.WriteLine("نصف قطر الدائرة هو: " & radius)

        Console.WriteLine("محيط الدائرة هو: " & circumference)

​

        ' انتظار المستخدم لإغلاق البرنامج

        Console.WriteLine("اضغط أي زر للخروج...")

        Console.ReadKey()

    End Sub

End Module

​