<u>PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018</u> <u>Внимание! Если программа не работает, обновите версию!</u>
uses GraphABC;
procedure Figure(n,a:integer; lu:Point); begin var rl:=new Point(lu.X+a, lu.Y+a); DrawRectangle(lu.X,lu.Y,rl.X,rl.Y); var ll:=new Point(lu.X,rl.Y); var um:=new Point(lu.X+a div 2,lu.Y); Polyline(ll,um,rl); lu.X+=a div 4; lu.Y+=a div 2; if n>1 then Figure(n-1,a div 2,lu) end;
begin var (w,h):=(800,600); // размер окна SetWindowSize(w,h); var a:=new Point(150,50); // левый верхний угол Figure(3,500,a); // число точек, длина стороны, левый верхний угол end.