Imports System

Public Module Module1

    Public Sub Main()

        dim students, coachcap, teachers, coaches as decimal

        Console.WriteLine("Please enter how many students are going on this trip")        'user enters variables

        students = console.readline()

        console.writeline("Please enter the capacity of the coaches")

        coachcap = console.readline() 

        teachers = students \ 20

        if (students Mod 20) <> 0 then   'works out teachers, if there is a remainder of students then the program adds another teacher

        teachers = teachers + 1

        end if

        coaches = (teachers + students) \ coachcap

        if students mod coachcap <> 0 then             'works out coaches, if there is a remainder of students, then the program adds another coach

        coaches = coaches + 1

        end if

        console.writeline("You will need " & teachers & " teachers, and " & coaches & " coaches")      'displays coaches and teachers needed

    End Sub

End Module