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.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
uses GRAPHABC;
var i,x,y:integer;
begin
randomize;
for i:=1 to 100 do
begin
x:=random(640)+0;
y:=random(480)+0;
setpixel(x,y,clblack);
end;
readln
end.