вот программа:
program speed;
uses crt,graphabc;
begin
circle (180,330,30);
circle (180,330,40);
line (180,330,165,315);
line (180,330,195,315);
line (180,330,195,330);
line (180,330,165,330);
line (180,330,165,345);
line (180,330,195,345);
line (180,345,180,315);
circle (450,330,30);
circle (450,330,40);
line (435,330,465,330);
line (450,315,450,345);
line (465,315,435,345);
line (435,315,465,345);
line (143,315,120,315);
line (120,315,110,330);
line (110,330,60,330);
line (60,330,55,320);
line (55,320,55,280);
line (55,280,64,280);
line (63,280,90,240);
line (90,240,180,225);
line (180,225,210,160);
line (210,160,510,160);
line (510,160,480,210);
line (489,195,540,300);
line (540,300,491,330);
line (491,330,540,330);
line (540,330,510,355);
line (510,355,481,355);
line (540,330,540,300);
line (418,355,212,355);
line (147,355,60,355);
line (60,355,60,330);
line (105,240,86,280);
line (86,280,60,280);
line (220,330,410,330);
line (480,210,450,210);
line (450,210,440,160);
line (165,270,300,270);
line (165,270,165,292);
line (165,270,213,165);
line (213,165,420,165);
line (420,165,420,240);
line (420,240,360,320);
line (360,320,310,320);
line (310,320,305,315);
line (305,315,330,240);
line (330,240,420,240);
line (330,270,360,270);
line (330,240,330,165);
line (180,260,220,170);
line (220,170,320,170);
line (320,170,300,270);
line (180,260,300,260);
line (300,270,283,320);
line (283,320,220,320);
line (255,300,285,300);
line (55,287,165,287);
line (385,287,533,287);
line (102,247,175,247);
line (416,247,514,247);
end.
Поделитесь своими знаниями, ответьте на вопрос: