// Pascal ABC.NET
program Wineglass;

uses graphABC;

begin
    line(100, 50, 250, 50);
    line(100, 50, 100, 230);
    line(250, 50, 250, 230);
    line(100, 230, 250, 230);
    line(100, 150, 250, 150);
    
    circle(110, 210, 5);
    circle(145, 185, 5);
    circle(160, 215, 5);
    circle(168, 175, 5);
    circle(200, 200, 5);
    circle(222, 178, 5);
    circle(239, 197, 5);
    
    line(170, 230, 170, 430);
    line(180, 230, 180, 430);
    line(170, 430, 100, 440);
    line(180, 430, 250, 440);
    line(100, 440, 250, 440);
    
    line(180, 180, 187, 183);
    line(180, 180, 200, 5);
    line(187, 183, 207, 15);
    line(200, 5, 300, 5);
    line(207, 15, 300, 15);
    line(300, 5, 300, 15);
end.