Uses GraphABC;
begin writeln(WindowWidth, ' ', windowheight); line(0, 160 * 2, 640, 160 * 2); line(340, 320, 340, 170); line(490, 320, 490, 170); line(305, 170, 525, 170); line(305, 170, 415, 170); line(415, 100, 525, 170); line(415, 100, 305, 170); line(170, 320, 170, 220); line(150, 320, 150, 220); line(170, 220, 150, 220); Ellipse(100, 230, 220, 70); Rectangle(375, 210, 455, 290); line(415, 210, 415, 290); line(375, 250, 455, 250); circle(600, 40, 30); line(540, 40, 500, 40); line(600, 100, 600, 140); line(555, 80, 520, 110); end.