Блок-схема

procedure TForm1.Pattern(n,x,y,b:integer;f:real);
var
  x1,y1:integer;
begin
  x1:=Trunc(x+b*cos(f));
  y1:=Trunc(y-b*sin(f));
  PaintBox1.Canvas.PolyLine([Point(x,y),Point(x1,y1)]);
  b:= b div 2;
  Dec(n);
  if n > 0 then
  begin
    Pattern(n,x1,y1,b,f-pi/4);
    Pattern(n,x1,y1,b,f+pi/4);
  end;
end;
procedure TForm1.Figures(n,x,y,a:integer);
begin
  PaintBox2.Canvas.Rectangle(x-a,y-a,x+a,y+a);
  PaintBox2.Canvas.Ellipse(x-a,y-a,x+a,y+a);
  Dec(n);
  if n > 0 then  Figures(n,x,y,a div 2);
end;
procedure TForm1.Button1Click(Sender:TObject);
var
  k,c,x0,y0,a:integer;
  alfa:real;
  begin
    Val(Edit1.Text,k,c);
    if c <> 0 then showMessage('Введите число')
    else
      begin
        PaintBox1.Canvas.Brush.Color:=clWhite;
        PaintBox1.Canvas.FillRect(Rect(0,0,PaintBox1.Width,PaintBox1.Height));
        x0:=10;
        y0:=PaintBox1.Height-10;
        a:=paintBox1.Height div 2;
        alfa:=pi/4;
        Pattern(k,x0,y0,a,alfa);
      end;
  end;
procedure TForm1.Button2Click(Sender:TObject);
var
  k,x0,y0,c,r:integer;
  begin
    Val(Edit2.Text,k,c);
    if c <> 0 then showMessage('Введите число')
    else
      begin
        paintBox2.Canvas.Brush.Color:=clWhite;
        paintBox2.Canvas.fillRect(Rect(0,0,paintBox2.Width,paintBox2.Height));
        x0:=Trunc(paintBox2.width/2);
        y0:=Trunc(paintBox2.height/2);
        r:=paintBox2.Height div 2;
        Figures(k,x0,y0,r);
      end;
  end;
end.