Microsoft Small Basic

Program Listing: KRH136
GraphicsWindow.DrawText(0,0, "Степанишина и Козлова 9Б")
Dlina = 50
For n = 0 To 4
GraphicsWindow.PenColor = GraphicsWindow.GetRandomColor()
GraphicsWindow.PenWidth = Math.GetRandomNumber(10)
GraphicsWindow.DrawLine(20, 20+n*10, 20+Dlina*Math.Power(2,n), 20+n*10)

EndFor