1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program snegovik;
uses crt,graph;
Var gd,gm:integer;
begin
clrscr;
detectgraph (gd,gm);
initgraph (gd,gm,'tp\7');
circle (270,330,90);
circle (270,180,60);
circle (270,90,30);
Line (217,150,150,210);
Line (150,390,150,30);
Line (150,90,120,30);
Line (150,90,180,30);
Line (150,90,135,30);
Line (150,90,165,30);
Line (322,150,390,210);
Line (270,95,270,105);
Circle (255,85,7);
Circle (285,85,7);
Readln
end.