mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-27 16:28:38 +02:00
18 lines
264 B
ObjectPascal
18 lines
264 B
ObjectPascal
uses gqueue;
|
|
|
|
type queuelli = specialize TQueue<longint>;
|
|
|
|
var data:queuelli; i:longint;
|
|
|
|
begin
|
|
data:=queuelli.Create;
|
|
for i:=1 to 10 do
|
|
data.Push(10*i);
|
|
while not data.IsEmpty do begin
|
|
writeln(data.Front);
|
|
data.Pop;
|
|
end;
|
|
|
|
data.Destroy;
|
|
end.
|