Microsoft Small Basic

Program Listing:
Embed this in your website
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
Copyright (c) Microsoft Corporation. All rights reserved.