uses GraphABC;
begin
  SetPenWidth(1);
  MoveTo(150, 50);
  LineTo(100, 50); LineTo(100, 0); LineTo(150, 0); LineTo(150, 100);
  LineTo(200, 100); LineTo(175, 125); LineTo(125, 125); LineTo(100, 100); LineTo(150, 100);
end.