{* Задача 493 *}

Unit ZADACH493;
Interface
Implementation
Begin
 writeln('Даны вещественные числа a[1],..., a[n]. Известно, что среди них есть отрицательные. Пусть первый среди отрицательных членов имеет номер a[k+1]. Вычислить a[1] + +2*a[2]+ + 2*a[3] + ... + 2*a[k-1] + a[k].');
End.

Program Task_22;

Uses zadach493.pas; {* Эту строку можно удалить *}
Uses Crt; {* Подключаем внешние файлы *}
Const {* Константы *}
  n = 100;
Var {* В работе нам потребуются переменные: *}
  a : Array[1..n] Of integer;
  i : integer;
  k : integer;
  s : integer;
Begin
  ClrScr; {* Очистка экрана *}
  Randomize;
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
  Begin
    a[i] := Random(40);
    a[i] := a[i] - 20;
    Write(a[i] : 4);
  End;
  Writeln; {* Вывод пустой строки *}
  i := 1;
  s := 0;
  While a[i] > = 0 Do
  Begin
    If i = 1 Then
      s := s + a[1]
    Else s := s + 2*a[i];
      Inc(i); {* Увеличиваем i на 1 *}
  End;
  If i > 2 Then
    s := s - a[i - 1];
  writeln(s);
End.