program space;

uses crt, graph;

var x, y, a, gd, gm:integer;

begin randomize;

gd:=detect;

initgraph(gd, gm, '');

for a:=1 to 300

do begin putpixel(x, y, 15);

x:=1+random(639-1+1); y:=1+random(479-1+1);

end;

readkey;

end.