uses GraphABC;
begin
  SetPenWidth(1);
  MoveTo(20, 30);
  LineTo(50, 1); LineTo(80, 30); LineTo(20, 30);
  LineTo(20, 80); LineTo(80, 80); LineTo(80, 30);
  MoveTo(40, 80);
  LineTo(40, 90); LineTo(35, 95);
  LineTo(40, 90); LineTo(40, 95);
  LineTo(40, 90); LineTo(45, 95);
  MoveTo(60, 80);
  LineTo(60, 90); LineTo(55, 95);
  LineTo(60, 90); LineTo(60, 95);
  LineTo(60, 90); LineTo(65, 95);
end.