paragraph_text: Sub Main Dim prost As Integer Dim lista As New List(Of Integer) 'u listu dodaj sve brojeve od 2 do 1000 For i = 2 To 1000 lista.Add(i) Next 'ponavljaj sve dok ima brojeva u listi While lista.Count > 0 'ispiši najmanji broj iz liste - to je prosti broj prost = lista.Min Console.WriteLine(prost) 'iz liste izbacimo ispisani broj i sve njegove višektranike For i = prost To 1000 Step prost lista.Remove(i) Next End While Console.ReadLine End Sub