Uses Unit_Types, Unit_Queue; function condition(x: TInfo): boolean; begin result := (x mod 3) = 0; end; var f: Text; q: TQueue; begin assign(f, paramstr(1)); reset(f); init(q); writeln('Очередь'); Input(f, q); Output(q); writeln('Добавление элементов'); Push(q, 123); Push(q, 321); Output(q); <--- writeln('Удаление элементов'); Pop(q); Output(q); writeln('Удаление эл-тов кратных 3'); Delete(q, condition); Output(q); end.