Dim t As Integer = 1 Dim a As Integer = 1 While t < 2000 a = a + 2 t = t + a End While Console.Write(a) Console.Read()
