{* Паутина *}

Unit PAUTIN;
Interface
Implementation
Begin
 writeln('Паутину с центром в заданной точке экрана, с заданным числом лучей. Координаты центра и число лучей считывать из текстового файла. ');
End.

Program pas6803;

Uses pautin.pas; {* Эту строку можно удалить *}
Uses Graph; {* Подключаем внешние файлы *}
Const {* Постоянные значения *}
  d = 50;
  m = 10;
Var {* В работе нам потребуются переменные: *}
  gd : integer;
  gm : integer;
  i  : integer;
  j  : integer;
  xc : integer;
  yc : integer;
  n  : integer;
  a  : double;
  f  : text;
Begin
  Assign(f, 'web.dat'); {* Связывание f с файлом 'web.dat' *}
  Reset(f); {* Подготовка переменной f для чтения из файла *}
  ReadLn(f, xc, yc);
  ReadLn(f, n);
  Close(f); {* Файл f будет закрыт *}
  a := 2 * Pi / n;
  gd := detect;
  InitGraph(gd, gm, '');
  For i := 0 To n - 1 Do {* Увеличиваем i от 0 до n с шагом 1 *}
  Begin
    Line(xc, yc, xc + Round(d * (m + 1) * Cos(a * i)), yc + Round(d * (m + 1) * Sin(a * i)));
    For j := 1 To m Do {* Переменная j увеличивается с 1 до m *}
      Line(          xc + Round(d * j * Cos(a * i)),          yc + Round(d * j * Sin(a * i)),          xc + Round(d * j * Cos(a * (i + 1))),          yc + Round(d * j * Sin(a * (i + 1)))        )
  End;
  ReadLn
End.