Помогите запрограммировать задачу в Visual Basic.

Question

10 апельсин разделили между девочками и мальчиками, так что у мальчиков их оказалось на 4 больше чем у девочек. Сколько апельсин у мальчиков, а сколько у девочек?

Наталья Бутылкина · Accepted Answer

Module Module1 
 Sub Main() 
 Dim boys As Integer = 10 
 Dim girls As Integer = 0 
 Dim difference As Integer = 4 
 Do While boys - girls > difference 
 boys = boys - 1 
 girls = girls + 1 
 Loop 
 Console.WriteLine(" У мальчиков: {0}", boys) 
 Console.WriteLine(" У девочек: {0}", girls) 
 Console.ReadKey() 
 End Sub 
End Module