построить в приложение PascalABC доми с трубой дверью и окном через кординаты x y x y

                                 PascalABC.NET

uses GraphABC;

begin

 setwindowsize(800,800);

 SetpenWidth(6);

 rectangle(100,300,600,700);

 Moveto(100,300);

 Lineto(350,35);

 lineto(600,300);

 rectangle(130,420,260,600);

 rectangle(450,450,600,700);

 circle(480,570,5);

 line(195,420,195,600);

 line(130,500,260,500);

 //труба

 moveto(475,165);

 lineto(510,125);

 lineto(480,98);

 lineto(445,135);

end.