Imports System

Public Module Module1

    Public Sub Main()

        dim k as integer

        dim p as integer

        dim m = 7

        for k = 1 to 3

            for p = 1 to 5

                Console.WriteLine(k + p)

            next p 

        next k

Console.WriteLine(m * m)

    End Sub

End Module