moje makra - frezowanie wielu prostokątów...

var a, b, x, y, z, k, w, r, ox, oy, oxx, oyy, i, j, yz: integer;
begin

clear;
x:= 68; //polozenie pierwszego dolnegio x
y:= 70; //polozenie pierwszego dolnegio y
k:= 5; //ilosc kolumn
w:= 6; //ilosc wierszy
ox:= 30; //odleglosc miedzy kwadratami x
oy:= 20; //odleglosc miedzy kwadratami y
a:= 60; //dlugosc boku a
b:= 40; //dlugosc boku b
r:=0;

oxx:= x;
yz:=0;
ox:=ox+a;
oy:=oy+b;

for j:=w downto 1 do begin

for i:=k downto 1 do begin
prostokat (oxx, y+yz, oxx+a, y+b+yz);
oxx:= ox+oxx;
end;

oxx:= x;
yz:= yz+oy;


end;

refresh;
selectall
end.