{* Задача 323 *}

Unit ZADACH323;
Interface
Implementation
Begin
 writeln('Изобразить на экране две спирали которые завинчиваются навстречу и пересекаются.');
End.

Program zadach323;

Uses zadach323.pas; {* Эту строку можно удалить *}
Uses crt, graph; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  y      : integer;
  x      : integer;
  mode   : integer;
  driver : integer;
  p      : real;
  i      : real;
Begin
  driver := detect;
  initgraph(driver, mode, 'C:tpbgi');
  i := 0;
  Repeat     i := i + 0.0001;
    p := 1 / i * i * i;
  x := round(5 * p * cos(i));
  y := round(5 * p * sin(i));
  putpixel(320 + x, 240 + y, 2);
  Until i > 20;
  readkey; {* Ждем нажатия пользователя *}
  i := 0;
  Repeat     i := i + 0.0001;
    p := 1 / i * i * i;
  x := round(5 * p * cos(i));
  y := round(5 * p * sin(i));
  putpixel(320 - x, 240 + y, 3);
  Until i > 20;
  readkey; {* Ждем нажатия пользователя *}
End.