Построение фигур с командами цикла

uses graphABC;
var x,y,r,i:integer;
begin
setpenwidth(2);
setbrushstyle(bsClear);
x:=windowwidth div 3;
y:=windowheight div 2;
r:=30;
for i:=1 to 4 do
 begin
  circle(x,y,r);
  x:=x+r div 2;
  r:=3*r div 2;
 end;
end.

uses graphABC;
var x,y,a,b,dx,dy,i:integer;
begin
setpenwidth(2);
setbrushstyle(bsClear);
x:=200;
y:=100;
a:=2*(windowwidth-400)div 5;
b:=2*(windowheight-200)div 6;
dx:=a div 2;
dy:=b div 2;
for i:=1 to 4 do
 begin
  rectangle(x,y,x+a,y+b);
  x:=x+dx;
  y:=y+dy;
  dx:=dx+a div 10;
  dy:=dy+b div 10;
 end;
end.

uses graphABC;
var x,y,w,h,i:integer;
begin
x:=windowwidth div 2;
y:=50;
w:=50;
h:=50;
setpenwidth(2);
for i:=1 to 4 do
 begin
  rectangle(x-w,y,x+w,y+h);
  y:=y+h;
  w:=w+50;
  h:=h+10;
 end;
end.

uses graphABC;
var x,y,a,b,i:integer;
begin
x:=100;
y:=75;
a:=25;
b:=50;
setpenwidth(2);
for i:=1 to 6 do
 begin
  if i mod 2=0 then setbrushcolor(clBlack)
  else setbrushcolor(clWhite);
  ellipse(x-a,y-b,x+a,y+b);
  x:=x+2*a-6;
  y:=y+b;
 end;
end.

uses graphABC;
var x,y,a,b,d,i:integer;
begin
x:=100;
y:=75;
a:=25;
b:=50;
setbrushcolor(clBlack);
rectangle(x-5,y-5,x+8*a-5,y+2*b+5);
setbrushcolor(clWhite);
d:=-10;
for i:=1 to 4 do
 begin
  ellipse(x,y,x+2*a,y+2*b);
  x:=x+2*a+d;
  d:=d+6;
 end;
end.

uses graphABC;
var x,y,a1,b1,a2,b2,i:integer;
begin
x:=100;
y:=windowheight div 2;
a1:=50;
b1:=40;
a2:=42;
b2:=40;
for i:=1 to 4 do
 begin
  setbrushcolor(clBlack);
  ellipse(x-a1,y-b1,x+a1,y+b1);
  setbrushcolor(clWhite);
  ellipse(x-a2,y-b2,x+a2,y+b2);
  x:=x+2*a1+1;
  a1:=a1+1;
  b1:=b1+2;
  a2:=a2-1;
  b2:=b1
 end;
end.