Нарисовать дом — Pascal(Паскаль)

uses crt,graph;
var gd,gm:integer;
begin
 initGraph(gd,gm,'');
 line(100,450,400,450);
 line(100,450,100,150);
 line(100,150,400,150);
 line(400,150,400,450);
 line(100,150,250,50);
 line(400,150,250,50);
 readln;
 closegraph;
 end.