написать программу, которая нарисует звездное небо из 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.