program venha; {cái này không có cũng được}
uses crt,graph;
var Gd,Gm: integer;
begin
Gd;= Detect;
initGraph (Gd,Gm,' ');
OutTextXY (120,50,'ve ngoi nha:');
Rectangle (220,200,420,330);
Rectangle (250,230,300,330);
Rectangle (330,230,390,280);
moveto (220,200);
lineto(180,200);
lineto(220,140);
lineto(420,140);
lineto(460,140);
lineto(420,200);
readln;
closeGraph;
end.