{* Задача 21 *}

Unit OCHERED21;
Interface
Implementation
Begin
 writeln('Возле прилавка в магазине стоит очередь покупателей. Время обслуживания каждого покупателя занесено в одномерный массив. Найти время пребывания каждого покупателя в очереди.');
End.

Program ochered;

Uses ochered21.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  v : Array[1..100] Of integer;
  n : integer;
  i : integer;
  m : integer;
Begin
  clrscr; {* Стираем всё с экрана *}
  write('Vvedite kolichestvo pokupateley: ');
  readln(n);
  For i := 1 To (n - 1) Do {* Увеличиваем i от 1 до (n с шагом 1 *}
  Begin
    writeln('vvedite vremia obsluzivania ', i, '-go pokupatelia: ');
    read(v[i]);
  End;
  For i := 2 To n Do {* Переменная i увеличивается с 2 до n *}
  Begin
    m := v[i - 1] + m;
    writeln('vreia prebyvania ', i, '-go pokupatelia v ocheredi = ', m);
  End;
  readkey; {* Ждем нажатия пользователя *}
End.