1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
uses graphABC;
begin
{горшок}
setpencolor(clBrown);
setbrushcolor(clBrown);
Line(52, 280, 110, 452);
Line(110, 452, 196, 452);
Line(196, 452, 243, 280);
Line(243, 280, 52, 280);
{зальём горшок цветом}
floodfill(120, 400, clBrown);
{стебли}
setpenwidth(5);
setpencolor(clGreen);
Line(58, 129, 127, 277);
Line(142, 56, 142, 280);
Line(229, 123, 164, 278);
{лепестки цветов}
setpencolor(clPurple);
Line(44, 101, 29, 70);
Line(45, 98, 67, 68);
Line(55, 95, 55, 64);
Line(55, 95, 74, 73);
Line(71, 99, 83, 81);
Line(71, 110, 95, 109);
Line(73, 116, 92, 123);
Line(60, 122, 83, 135);
Line(50, 132, 48, 145);
Line(49, 132, 33, 143);
Line(41, 123, 19, 133);
Line(43, 115, 13, 124);
Line(44, 109, 14, 108);
Line(37, 103, 17, 94);
Line(136, 50, 131, 64);
Line(135, 46, 117, 67);
Line(125, 48, 98, 62);
Line(135, 38, 102, 37);
Line(130, 30, 103, 22);
Line(128, 22, 112, 7);
Line(146, 12, 155, -6);
Line(158, 14, 166, -7);
Line(159, 28, 175, 12);
Line(163, 40, 191, 47);
Line(158, 47, 172, 58);
Line(147, 49, 162, 68);
Line(134, 19, 129, 6);
Line(218, 91, 210, 78);
Line(216, 91, 198, 80);
Line(225, 83, 213, 60);
Line(243, 88, 240, 62);
Line(251, 89, 267, 74);
Line(255, 106, 278, 110);
Line(245, 116, 264, 132);
Line(238, 118, 248, 142);
Line(231, 125, 232, 141);
Line(219, 112, 197, 129);
Line(219, 112, 183, 108);
{середины цветков}
setpencolor(clYellow);
setbrushcolor(clYellow);
Circle(53, 116, 16);
Circle(142, 37, 17);
Circle(231, 103, 20);
end.
