01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / KATYA

Program villa;
uses crt, graph;
var
gd, gm, i, x, y:integer;
Procedure ka(x, y, cp, cg:integer);
begin
setfillstyle(1, cp);
floodfill(x, y, cg);
end;
BEGIN
gd:=detect;
initgraph(gd, gm, 'd:\tp7\bgi');
ka(100, 100, 11, 15);
setcolor(14); {Џ ­Є}
circle(100,100, 40);
ka(110, 90,14,14);
setcolor(0);
arc(100,100, 200, 340, 30);
setcolor(9);
line(100, 60, 100, 15);
line(60, 100, 15, 100);
line(140, 100, 185, 100);
line(128, 72, 148, 52);
line(72, 72, 52, 52);
setcolor(4);
line(100, 100, 97, 115);
line(100, 100, 103, 115);
line(97, 115, 103, 115);
ka(100, 107, 4, 4);
setfillstyle(1, green);
bar(78, 90, 85, 85);
bar(115, 90, 122, 85);
setcolor(10); {Љ®­Ґж Ї ­Єг}
line(0,220, 640, 220);
ka(10, 300,10, 10);
setfillstyle(1, 5); {„®¬}
bar(300, 400, 615, 180);
setcolor(0); {Љали }
line(230, 180, 500, 80);
line(500, 80, 635, 180);
line(230, 180, 635, 180);
setfillstyle(2, 9);
floodfill(300, 170, 0);
setlinestyle(0, 0, 3); {—Ґа¤ Є}
setcolor(7);
arc(482, 120, 0, 180, 25);
line(457, 165, 506, 165);
line(482, 165, 482, 120);
line(457, 165, 457, 120);
line(506, 165, 506, 120);
line(457, 120, 507, 120);
ka(480, 150, 15, 7);
ka(495, 150, 15, 7);
ka(480, 115, 15, 7);
line(482, 120, 482, 96);
line(482, 120, 501, 102);
line(482, 120, 463, 102);
setcolor(7); {ЋЄ­®}
rectangle(350, 330, 450, 230);
ka(360, 300, 15, 7);
line(400, 330, 400, 230);
setcolor(12); {в®ал}
ellipse(350, 230, 273, 343, 50, 70);
ellipse(450, 230, 200, 268, 50, 70);
line(353, 300, 353, 233);
line(353, 233, 397, 233);
line(397, 233, 397, 251);
line(447, 300, 447, 233);
line(447, 233, 402, 233);
line(403, 233, 403, 254);
ka(360, 250, 12, 12);
ka(430, 250, 12, 12);
setfillstyle(1, 8); {„ўҐам}
bar(510, 385, 580, 235);
setfillstyle(1, 0);
bar(480, 405, 610, 395);
bar(500, 395, 590, 385);
setcolor(6);
rectangle(509, 383, 581, 234);
setcolor(12);
circle(520, 310, 1);
setcolor(0); {8 —㤮 ᢥв }
setlinestyle(0, 0, 1);
ellipse(130, 380, 0, 360, 90, 50);
ellipse(130, 395, 180, 360, 90, 50);
ellipse(130, 380, 0, 360, 80, 40);
ellipse(130, 380, 0, 360, 81, 41);
line(220, 400, 220, 380);
line(40, 400, 40, 380);
ka(130, 435, 15, 0);
ka(130, 400, 9, 0);
ka(130, 424, 13, 0);
setcolor(15);
rectangle(125, 385, 135, 310);
arc(130, 385, 180, 360, 5);
ka(130, 386, 15, 15);
ka(130, 320, 15, 15);
setcolor(0);
ellipse(130,295, 180, 360, 41, 16);
ellipse(130, 295, 350, 190, 41, 8);
ellipse(130, 295, 180, 360, 40, 8);
ka(130, 308, 15, 0);
ka(130, 295, 9, 0);
setcolor(15);
line(128, 298, 130, 292);
line(132, 298, 130, 292);
arc(130, 298, 180, 360, 1);
ka(130, 298, 15, 15);
setlinestyle(0, 11, 3);
setcolor(11);
ellipse(150, 293, 70, 180, 20, 40);
ellipse(150, 293, 30, 180, 20, 20);
ellipse(111, 293, 360,130, 20, 40);
ellipse(91, 293, 360, 75, 40, 20);
ellipse(160, 293, 115, 180, 30, 70);
readln
END.