Занесение элемента в очередь

Занесение элемента в очередь соответствует занесению элемента в конец списка. Рассмотрите процедуру, описанную ниже.

Procedure writeO(Var BeginO, EndO: EXO; c: integer);

Var

u: EXO;

Begin

new(u);

u^.Data:= c;

u^Next:= Nil;

if BeginO =Nil {проверяем пуста ли очередь}

then

BeginO:= u {ставим указатель начала очереди на первый созданный элемент}

else

EndO^.Next:= u; {ставим созданный элемент в конец очереди}

EndO:= u; {переносим указатель конца очереди на последний элемент}

End;

Задание. Создайте программу формирования очереди с использованием предложенной процедуры.