Imports System.console

Public Module Module1

    Public Sub Main() 'z(0)=19 ,z(1)=3 

            dim z() as integer={19, 3, 15, 7, 11, 9, 13, 5, 17, 1}:dim i , j as integer 

        for i=1 to 9

        write(i & " elemani "& z(i)&"==>" )

        for j = 1 to z(i)

        write("*")

    next

     writeline()

    next

    readline()

    End Sub

End Module