{* Задача 446 *}

Unit ZADACH446;
Interface
Implementation
Begin
 writeln('Составить программу и трассировку программы вычисления суммы элементов последовательности (Трассировка – проверка алгоритма с помощью пошагового вычисления (клавиша [F7]), в отчет выписать 3 итерации цикла). -1, 3, -9, 27, -81, … ,-729 ');
End.

Program zadach446;

Uses zadach446.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  s    : integer;
  a    : integer;
  y    : integer;
  znak : integer;
Begin
  s := 0;
  znak := - 1;
  y := 1;
  Repeat    a := znak * y;
    s := s + a;
  znak := - znak;
  y := y * 3;
  Until abs(y) > 729;
  writeln ('s=', s);
End.