помогите пожалуйста создать дом в программе Pascal ABC !

uses GraphABC;beginPen.Color := clblue;brush.Color :=clRed;DrawRectangle(100,200,400,400);fillRect(100,200,400,400);moveto(90,200);lineto(100,150);lineto(400,150);lineto(410,200);lineto(90,200);FloodFill(100,180,clblue);brush.Color := clCyan;fillRect(150,250,200,300);fillRect(250,250,300,300);end.