Imports System

Public Module Module1

    Public Sub Main()

        dim A as string=" "

        dim B as string=" "

        dim C as string=" "

        dim D as string=" "

        dim E as string=" "

        dim F as string=" "

        dim G as string=" "

        Console.WriteLine("Enter your friend's name")

        A=console.readline()

        Console.WriteLine("Enter another friend's name")

        B=console.ReadLine()

        Console.WriteLine("Enter another friend's name")

        C=console.ReadLine()

        Console.WriteLine("Enter another friend's name")

        D=console.ReadLine()

        Console.WriteLine("Enter another friend's name")

        E=console.ReadLine()

        Console.WriteLine("Enter another friend's name")

        F=console.ReadLine()

        Console.WriteLine("Enter another friend's name")

        G=console.ReadLine()

        Console.Write("My friends are "):Console.WriteLine(A+", "+B+", "+C+", "+D+", "+E+", "+F+" and "+G)

    End Sub

End Module