Графика(Pascal)

program grl;

uses
  Crt,
  Graph;

const
  grPath = 'C:\LAN\BP\BGI';{Здесь пропиши свой путь к bgi-файлам}
  a = 20; {здесь}
  L = 50; {и здесь можно поменять числа}

var
  grDriver, grMode: Integer;
  tg, XMid, YMid: Integer;
  tr, x, y: Real;

begin
  grDriver := Detect;
  InitGraph(grDriver, grMode, grPath);
  XMid := GetMaxX div 2;
  YMid := GetMaxY div 2;
  {Правая ветвь}
  SetColor(LightBlue);
  for tg := -90 to 90 do begin
    tr := tg * Pi / 180;
    x := a + L * Cos(tr);
    if Round(Cos(tr)*1000) = 0 then
      y := GetMaxY
    else
      y := a * Sin(tr)/Cos(tr) + L * Sin(tr);
    if tg = -90 then
      MoveTo(Round(XMid + x), Round(YMid - y))
    else
      LineTo(Round(XMid + x), Round(YMid - y));
  end;
  {Левая ветвь}
  SetColor(LightGreen);
  for tg := 90 to 270 do begin
    tr := tg * Pi / 180;
    x := a + L * Cos(tr);
    if Round(Cos(tr)*1000) = 0 then
      y := GetMaxY
    else
      y := a * Sin(tr)/Cos(tr) + L * Sin(tr);
    if tg = 90 then
      MoveTo(Round(XMid + x), Round(YMid - y))
    else
      LineTo(Round(XMid + x), Round(YMid - y));
  end;
  ReadKey;
  CloseGraph;
end.