Нарисовать в паскале дом и дерево

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.