Малюнок замка в Паскаль:

Uses graph, crt;
var dv,mv: integer;

Begin
dv:=detect;
initgraph (dv,mv,' ');
cleardevice;

SetFillStyle(1,11);
Bar(0,639,639,0);

SetFillStyle(1,9);
Bar(100,500,500,250);
Bar(200,400,400,200);
Bar(250,300,350,150);

SetColor(9);
Line(250,150,300,80);
Line(300,80,350,150);
Line(350,150,250,150);
PiesLice(300,80,308,232,90);

SetColor(4);
Line(300,80,300,20);
Line(300,20,340,20);
Line(340,20,320,30);
Line(320,30,340,40);
Line(340,40,300,40);

SetFillStyle(1,6);
SetColor(0);
FillEllipse(300,450,120,170);
Line(300,280,300,480);
Circle(280,380,10);
Circle(320,380,10);

SetColor(4);
Line(100,250,80,200);
Line(80,200,60,240);
Line(60,240,92,230);

Line(500,250,520,200);
Line(520,200,540,240);
Line(540,240,508,230);

SetFillStyle(11,10);
Bar(0,459,639,639);

SetTextstyle(1,0,3);
OutTextxy(250,210,'Teremok');

setColor(15);
SetFillStyle(1,15);
FillEllipse(150,300,30,40);
FillEllipse(450,300,30,40);
FillEllipse(300,180,20,30);
SetFillStyle(1,9);
Bar(100,300,190,360);
Bar(400,300,490,360);
Bar(250,180,331,210);


repeat until keypressed;
closegraph;
End.