Uses STACK,QUEUE;

Procedure taohangdoi(Var Q:QueueType);

Var i:Integer;

Begin CreateQ(Q);

Writeln('Dua vao cac so nguyen :');

While not eoln Do

Begin read(i);AddQ(Q,i) end;readln;

end;

Var Q:QueueType;

S:StackType;

x:integer;

Begin taohangdoi(Q);

CreateS(S);

While not EmptyQ(Q) do

Begin RemoveQ(Q,x);Push(S,x) end;

While not EmptyS(S) do

Begin Pop(S,x);Add(Q,x);Write(x,' ') end;

readln;

end.