Составить программу которая находит наименьшее натуральное число n при котором 2n> =20 и результат наименьшее число n выводит на экран

VB.

Dim n As Integer       

For n = 0 To 100
            If 2 * n >= 20 Then Exit For       
Next       
MsgBox("наименьшее натуральное число n при котором 2n>=20 равно " & n)