User:Mo haytam mrini/sandbox

Module module1 Sub main

Dim n As Integer Dim c As Decimal

Dim k As Integer

Console.WriteLine("enter the number of the students") n = Console.ReadLine If n > 45 Then Console.WriteLine("Too many students") Else Console.WriteLine("The total coast per student is ") k = Math.Round(n / 10 - 0.5) c = ((n * 30) + 550 - (30 * k)) / n Console.Write(c)

If c * n > ((n * 30) + 550 - (30 * k)) / n Then Console.WriteLine("Some students did not pay") Else Console.WriteLine("All stuedents paid") End If End If

Console.ReadKey

End Sub End Module