8 lines
128 B
ObjectPascal
8 lines
128 B
ObjectPascal
|
begin
|
||
|
|
var q := new Queue<integer>;
|
||
|
|
for var i:=1 to 5 do
|
||
|
|
q.Enqueue(i);
|
||
|
|
while q.Count > 0 do
|
||
|
|
Print(q.Dequeue);
|
||
|
|
end.
|