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

uses GraphABC;
procedure SlavynistskaiaSimvolika;
Begin
setpenwidth (15);
line (250, 50, 350, 50);
lineto (550, 300);
lineto (450, 400);
lineto (150, 400);
lineto (50, 300);
lineto (250, 50);
line (300, 50, 300, 250);
line (300, 250, 100, 350);
line (300, 250, 500, 350);
line (230, 20, 370, 20);
lineto (590, 300);
lineto (470, 430);
lineto (130, 430);
lineto (10, 300);
lineto (230, 20);
line (0, 450, 600, 450);
lineto (600, 0);
floodfill (50, 50, clBlack);
end;
begin
SlavynistskaiaSimvolika;
end.