Mail

В этот день много лет назад...
9 мая. В 1998 году (26 лет назад) - 27-летний парашютист-любитель из баварского города Бургхайм на юге ФРГ, покидая самолет на высоте 1 км (!), ударяется о люк машины, отчего по ошибке открывает запасной парашют. Основной же купол зацепился за хвостовое оперение самолета, и спортсмен некоторое время летел за машиной, пока ему не удалось отцепиться. Бедолага стал падать вниз, как камень, и, запутавшись в стропах, с большой скоростью ударился о землю. К удивлению товарищей и медиков, парашютист остался жив, отделавшись переломами и ушибами. Доставленный в больницу счастливчик заявил, что после выздоровления будет прыгать с парашютом и дальше.

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