Module Module1
    Sub Main()
        Dim friends(4) As String
        For i = 0 To 4
            Console.WriteLine("Enter your friend's name")
            friends(i) = Console.ReadLine()
        Next

        Dim foods(4) As String
        For i = 0 To 4
            Console.WriteLine("Enter " & friends(i) & "'s favourite food")
            foods(i) = Console.ReadLine()
        Next

        Console.WriteLine("MY FRIEND'S FAVORITE FOODS")
        Console.WriteLine("Friend".PadLeft(8) & "|" & "Favourite Food".PadLeft(15))
        Console.WriteLine("".PadLeft(8, "-") & "+" & "".PadLeft(15, "-"))
        For i = 0 To 4
            Console.WriteLine(friends(i).PadLeft(8) & "|" & foods(i).PadLeft(15))
        Next
        Console.ReadLine()
    End Sub
End Module