Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Insert number of students")

        Dim StudentNum as integer = Console.ReadLine()

        Console.Writeline("Insert number of pencils")

        Dim PencilNum as integer = Console.ReadLine()

        Console.WriteLine("Insert number of books")

        Dim BookNum as integer = Console.Readline()

        Dim PencilPerStudent as integer = PencilNum \ StudentNum

        Dim StudentsPerBook as integer = 0

        Dim BookLeftOver as integer = 0

        If BookNum > StudentNum Then

         StudentsPerBook = BookNum \ StudentNum

         BookLeftOver = BookNum mod StudentNum  

        Else If BookNum < StudentNum Then

         StudentsPerBook = StudentNum \ BookNum

         BookLeftOver = StudentNum mod BookNum

            End If

        Console.Writeline(PencilPerStudent & " pencils per student " & StudentsPerBook & " students to a book " & BookLeftOver & " books left over")

    End Sub 

End Module