Написать программу, которая выводит на экран приведенный ниже узор

[makarevich]

Написать программу, которая выводит на экран приведенный ниже узор
(с помощью рекурсии, если можно )

[dmitriegorovih]

procedure TForm1.Button1Click(Sender: TObject);
var
n,t:integer;
razmer,pologenie:Tpoint;
begin
t:=0;
razmer.X:=24; //Размер ширина
razmer.Y:=74; //Размер высота
pologenie.X:=100; //Положение по горизонтали
pologenie.Y:=100; //Положение по вертикали
image1.Canvas.Brush.Style:=bsClear;
for n:=1 to 4 do begin
image1.Canvas.Ellipse(pologenie.X+t,pologenie.Y,pologenie.X+razmer.X+t,pologenie.X+razmer.Y);
t:=t+((razmer.X) div 2);
end;
end;