написать программу, которая нарисует звездное небо из 500 звезд (разноцветными точками)!

uses crt, graph;var x, y, z, k, gd, gm: integer;

begin gd := detect; initgraph (Gd, Gm, \' \'); randomize; for k := 1 to 500 do begin x := random (500) - 20; y := random (480) - 50; z := random (15) - 100; putpixel (x, y, z); end; repeat until keypressed;end.