Castle FOR PASCAL ABC

uses GraphABC;
begin
setwindowsize(422,513);
DrawRectangle(107,256,154,403);
DrawRectangle(154,403,154,403);
DrawRectangle(268,256,315,399);
Line(95,255,175,257);
Line(327,258,255,256);
Line(256,256,290,203);
Line(290,203,327,258);
Line(96,255,130,203);
Line(130,203,163,255);
Line(154,270,268,271);
Line(154,371,268,371);
Line(153,385,268,384);
Line(153,399,268,399);
Line(278,223,278,144);
Line(184,144,290,144);
Line(184,143,237,76);
Line(237,76,290,144);
Line(237,79,237,29);
Line(195,131,183,117);
Line(183,118,140,170);
Line(140,170,195,170);
Line(195,146,195,146);
Line(195,144,195,258);
Line(176,258,177,247);
Line(177,247,195,248);
Line(194,257,212,257);
Line(212,257,212,247);
Line(212,247,228,247);
Line(229,247,229,257);
Line(229,257,247,257);
Line(247,257,247,247);
Line(247,247,262,248);
Line(154,171,154,241);
Arc(130,292,10,0, 180);
Arc(291,292,10,
0, 180);
Arc(182,201,10,
0, 180);
Arc(216,177,9,
0, 180);
Arc(261,208,10,
0, 180);
Line(172,200,172,226);
Line(173,225,191,225);
Line(191,225,192,201);
Line(207,176,207,202);
Line(207,202,225,202);
Line(225,202,225,177);
Line(251,208,251,232);
Line(252,232,270,232);
Line(270,231,270,207);
Line(281,292,281,315);
Line(281,315,300,315);
Line(300,315,300,291);
Line(175,369,177,329);
Line(177,329,182,309);
Line(182,309,189,292);
Line(189,292,206,277);
Line(206,277,215,278);
Line(214,279,229,289);
Line(229,289,237,302);
Line(237,302,242,317);
Line(242,317,245,335);
Line(245,335,245,371);
Line(120,316,120,294);
Line(121,317,140,317);
Line(140,317,140,293);
Line(236,32,229,27);
Line(229,27,224,27);
Line(224,27,216,33);
Line(216,33,209,33);
Line(209,33,199,28);
Line(200,28,200,52);
Line(200,51,207,56);
Line(207,56,215,56);
Line(215,56,222,50);
Line(222,50,229,47);
Line(229,47,236,51);
Line(179,317,242,317);
Line(184,304,237,304);
Line(193,290,229,290);
Line(188,297,188,329);
Line(199,286,199,329);
Line(210,278,210,329);
Line(223,286,222,330);
Line(234,300,233,329);
end.