Выделить код
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
Program aaa;
uses GraphABC;
var i:integer;
begin
lockdrawing;
for i:=1 to 500 do
begin
Circle(315,288,75);
Circle(315,288,25);
Circle(300,260,10);
Circle(330,260,10);
Line(264,230,230,235);
Line(362,230,400,236);
Line(393,243,420,248);
Line(399,237,392,245);
Line(230,235,240,243);
Line(210,245,240,243);
Line(210,245,220,250);
Line(178,255,219,250);
Line(178,255,242,259);
Line(418,248,404,250);
Line(446,255,404,250);
Line(440,255,384,258);
Line(357,358,390,375);
Line(240,374,273,359);
Line(240,376,390,374);
redraw;
sleep(10);
setbrushcolor(clwhite);
fillrect(0,0,1000,1000);
end;
end.