Ответ:
Объяснение:
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
uses graphABC;
var d,i:integer;
begin
d:=20;
setwindowsize(44*d,34*d);
centerwindow;
setfontstyle(fsBold);
for i:=1 to 40 do
begin
if i mod 5=0 then
begin
setpencolor(clBlack);
textout(2*d+i*d-d,2*d-d,inttostr(i*d));
end
else setpencolor(clSilver);
line(2*d+i*d,2*d,2*d+i*d,2*d+30*d);
end;
textout(2*d,2*d-20,'0');
for i:=1 to 30 do
begin
if i mod 5=0 then
begin
setpencolor(clBlack);
textout(2*d-30,2*d+i*d-5,inttostr(i*d));
end
else setpencolor(clSilver);
line(2*d,2*d+i*d,2*d+40*d,2*d+i*d);
end;
setpenwidth(2);
setbrushstyle(bsClear);
setpenwidth(4);
rectangle(2*d,2*d,windowwidth-2*d,windowheight-2*d);
line(7*d,7*d,27*d,7*d);
line(32*d,7*d,37*d,7*d);
line(37*d,7*d,37*d,12*d);
line(37*d,17*d,37*d,27*d);
line(37*d,27*d,7*d,27*d);
line(7*d,27*d,7*d,7*d);
setpenwidth(8);
line(8*d,10*d,10*d,8*d);
setpenwidth(2);
moveto(14*d,7*d);
lineto(14*d,10*d);
lineto(10*d,10*d);
lineto(10*d,17*d);
lineto(7*d,17*d);
line(27*d,7*d,27*d,12*d);
arc(27*d,7*d,5*d,270,360);
line(32*d,12*d,37*d,12*d);
arc(37*d,12*d,5*d,180,270);
setbrushcolor(clBlack);
setbrushstyle(bsDiagCross);
rectangle(30*d,22*d,37*d,27*d);
setbrushstyle(bsSolid);
setbrushcolor(clBrown);
rectangle(16*d,7*d,22*d,9*d);
circle(12*d,12*d,d);
rectangle(7*d,20*d,22*d,27*d);
setbrushstyle(bsClear);
rectangle(8*d,21*d,11*d,26*d);
end.
