uses Crt, Graph;

const R = 50;

var
  Driver, Mode : Integer;
  Xasp, Yasp   : Word;

begin
 { Инициализируем графику }
  DirectVideo := False;
  Driver := Detect;
  InitGraph(Driver, Mode, 'X:\BP');
 if GraphResult < 0 then
   Halt(1);
 { Получаем коэффициент сжатия }
  GetAspectRatio(Xasp, Yasp);
 { Пересчитываем для адаптеров VGA и IBM8514.
    Коэффициент сжатия для них равен 1:1 }
 if Xasp = Yasp then
    Yasp := 5 * Xasp;
 { Изменяем коэффициент сжатия до 1:1 или до нажатия клавиши }
 while (Xasp < Yasp) and not KeyPressed do
 begin
    SetAspectRatio(Xasp, Yasp);
    Circle(GetMaxX div 2, GetMaxY div 2, R);
   Inc(Xasp, 20);
 end;
  SetTextJustify(CenterText, CenterText);
  OutTextXY(GetMaxX div 2, GetMaxY div 2, 'Done!');
 ReadLn;
  CloseGraph;
end.