Metoda zstępująca

top down

uses crt, graph;
var s,t:integer;
procedure prostokat;
  begin
   setcolor(yellow);
   rectangle(100,300,200,280);
  end;
procedure kwadrat;
  begin
  setcolor(yellow);
  rectangle(100,280,200,180);
  end;
procedure trojkat;
  begin
    Moveto(100,180);LineTo(150,100);
    LineTo(200,180);
  end;

begin
  initgraph(s,t,'');
  prostokat;
  kwadrat;
  trojkat;
  readkey;
  closegraph;
end.