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

uses GraphABC; begin Pen.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.