Синтаксис:
procedure Circle(х,у: integer; r: word);
Действие: Вычерчивает окружность радиуса г с центром в точке с координатами (х,у). Цвет окружности можно задать при помощи процедуры Setcolor.