program Speed;
uses crt,graph;
Var gd,gm:integer;
begin
clrscr;
detectgraph (gd,gm);
initgraph (gd,gm,'tp\7');
{koleca}
circle (180,330,30);
circle (180,330,40);
circle (450,330,30);
circle (450,330,40);
Line (140,340,60,340);
Line (220,340,412,340);
Line (490,340,520,340);
Line (520,340,520,270);
Line (520,270,390,270);
Line (390,270,360,180);
Line (360,180,210,180);
Line (210,180,150,270);
Line (150,270,60,270);
Line (60,270,60,340);
Readln
end.
вставь в паскаль и проверь)
