Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- uses GraphABC;
- var
- q,w,q1,w1,r,i,j,m,n:integer;
- begin
- r:=10;
- q:=10;
- w:=10;
- q1:=q+r;
- w1:w+r;
- m:=30;
- n:=30;
- for i:=0 to m do
- for i:=0 to m do begin
- rectangle (q+(i*r), w+(j*r),q1+(i*r),w1+(j*r));
- SetBrushColor (clRandom);
- end;
- repeat
- i:=random(m+1);
- j:=random(m+1);
- rectangle(q+(i*r), w+(j*r),q1+(i*r), w1+(j*r));
- SetBrushColor(clRandom);
- until i:=100;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement