Mail

В этот день много лет назад...
30 апреля. В 1977 году (48 лет назад) - Рекорд посещаемости концертов с этого дня принадлежит "Led Zeppelin": на американском стадионе "Silver Dome" присутствует 76229 зрителей.

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);