program Demo; uses Crt, Graph, Figures; var Kruznice: Circle; Oblouk: Arc; Elipsa: Ellipse; gd, gm: integer; begin gd := detect; InitGraph(gd,gm,''); Kruznice.Init(50,50,30); Oblouk.Init(150,50,50,220,320); Elipsa.Init(250,50,20,50); Kruznice.Show; Oblouk.Show; Elipsa.Show; while not keypressed do begin Kruznice.MoveTo(random(GetMaxX),random(GetMaxY)); Oblouk.MoveTo(random(GetMaxX),random(GetMaxY)); Elipsa.MoveTo(random(GetMaxX),random(GetMaxY)); delay(500); end; Kruznice.Hide; Oblouk.Hide; Elipsa.Hide; CloseGraph; end.