Question

Нарисуйте домик Pascal

Answer 1

uses GraphABC;

begin

 setwindowsize(1000,800);

 SetpenWidth(6);

 rectangle(50,300,650,700);

 line(0,700,1000,700);

 Moveto(0,300);

 Lineto(350,35);

 lineto(700,300);

 lineto(0,300);

 rectangle(130,420,260,600);

 line(195,475,195,600);

 line(130,475,260,475);

 rectangle(130+250,420,260+250,600);

 line(195+250,475,195+250,600);

 line(130+250,475,260+250,475);

 moveto(510,155);

 lineto(510,50);

 lineto(470,50);

 lineto(470,128);

end.