Построить дом- Pascal(Паскаль)

uses graph;
var gd,gm : integer;
begin
gd := detect;
initgraph(gd,gm,'c:\tp7\BGI');
line(100,100,100,200);
line(100,200,200,200);
line(200,200,200,100);
line(100,100,200,100);
line(100,100,150,50);
line(150,50,200,100);
readln;
end.