uses GRAPHABC;var i,x,y:integer;beginrandomize;
for i:=1 to 100 dobeginx:=random(640)+0;y:=random(480)+0;setpixel(x,y,clblack);
end;readlnend.