Программа

CONST N=6;   { Количество элементов очереди }
TYPE TurnType=array [1..N] of integer; { Очередь-тип }
VAR Turn:TurnType; { Очередь }
PROCEDURE InputTurn (var Turn:TurnType); { Процедура ввода очереди }
  Var i:word; { Счетчик }
  Begin
    for i:=1 to N do { Цикл ввода элементов очереди }
      begin
        Write('Введите элемент [',i,'] ');
                                 { Вывод приглашения ввести элемент очереди }
        ReadLn(Turn[i]);   { Ввод элемента очереди }
      end
  End;
PROCEDURE OutputTurn (Turn:TurnType); { Процедура вывода очереди }
  Var i:word;   { Счетчик }
  Begin
    for i:=1 to N do { Цикл вывода очереди }
      Write (Turn[i],'  ');  { Вывод элемента очереди }
    WriteLn  { Вывод конца строки }
  End;
PROCEDURE ProcessTurn (T:TurnType); { Процедура просмотра очереди }
  Var i:word;   { Счетчик }
      Time:word; { Время пребывани покупателя в очереди }
  Begin
    Time:=0;  { Обнуление времени }
    for i:=1 to N do { Цикл просмотра очереди }
    begin
      Time:=Time+T[i]; { Набор времени }
      Write(Time,'  ')  { Вывод времени пребывания i-го покупателя }
    end;
    WriteLn  { Вывод конца строки }
  End;
BEGIN
  WriteLn; { Пропуск строки }
  InputTurn(Turn); { Ввод очереди }
  WriteLn; { Пропуск строки }
  WriteLn(' Время обслуживания покупателей: ');  { Вывод заголовка }
  OutputTurn(Turn); { Вывод очереди }
  WriteLn(' Время пребывания покупателей в очереди: ');  { Вывод заголовка }
  ProcessTurn(Turn) { Обработка очереди }
END.