Mail

В этот день много лет назад...
29 января. В 1886 году (140 лет назад) - Запатентован первый успешный бензиноуправляемый автомобиль, построенный Карлом Бенцем - Benz (трехколесный Motorwagen, хранится в Мюнхене).

Turbo Pascal Documentation

Процедура Circle

     Функция: Рисует окружность. Точка (Х,Y) считается  цен-
тром окружности.
     Описание: Circlе(Х,Y : integer; радиус : word)
     Примечания: Окружность рисуется текущим цветом. В  каж-
дом  графическом драйвере содержится коэффициент относитель-
ного удлиннения, который используется в  процедурах  Сirclе,
Аrс и РiеSliсе.
     Ограничения: Должен использоваться графический режим.
     Прочее: См. также процедуры Arc, Ellipse, GetArcCoords,
GetAspectRatio, PieSlice.
     Пример:

for r := 1 to 5 do
   Circle(100,100,r*10);