program stack;

uses
  RecordStruct;

var
  a: parraystack;
  a2:pArrayQueue;
  ls:PListStack;
  lq:PListQueue;
  u: pliststack;
  b: boolean;
  i,number,x,y:integer;
begin
  Assign(input, 'input.txt');
  Assign(output, 'output.txt');
  reset(input);
  rewrite(output);

  writeln('ArrayStack'); {23,4,5,67,8}
  a := newarraystack(5);  //stack array
  for i := 0 to 4 do
  begin
    readln(number);
    pushdata(a, number);
  end;
  while getsize(a) > 0 do
  begin
    writeln(getsize(a), ' ', getdata(a));
    popdata(a);
  end;
  delstack(a);

  writeln('ArrayQueue'); {23,4,5,67,8}
  a2 := newArrayQueue(5);
  for i := 0 to 4 do
  begin
    readln(number);
    pushdata(a2, number);
  end;
  while getsize(a2) > 0 do
  begin
    writeln(getsize(a2), ' ', getdata(a2));
    popdata(a2);
  end;



 u := newListStack();
  b := pushData(u, 6);
  b := pushData(u, 7);
  b := pushData(u, 8);
  Write(getdata(u));
  b := popdata(u);
  Write(getdata(u));
  b := popdata(u);
  Write(getdata(u));
  b := popdata(u);

writeln;
writeln;

writeln('ListStack');
ls:=newliststack();
pushdata(ls,5);
pushdata(ls,25);
pushdata(ls,125);
pushdata(ls,625);
pushdata(ls,3125);
pushdata(ls,2);
pushdata(ls,8);
pushdata(ls,32);

writeln(ls^.size);
while(getsize(ls) > 0) do
begin
x:=getdata(ls);
y:=getsize(ls);
writeln(x,' <----> ',y);
popdata(ls);
end;

delstack(ls);
writeln;
writeln;


writeln('ListQueue');
lq:=newlistqueue();
pushdata(lq,3);
pushdata(lq,9);
pushdata(lq,27);
pushdata(lq,81);
pushdata(lq,243);
pushdata(lq,729);
writeln(lq^.size);
while (getsize(lq)>0) do
begin
x:=getdata(lq);
y:=getsize(lq);
writeln(x,' <----> ',y);
popdata(lq);
end;

delqueue(lq);

{  writeln;
  a := newarraystack(4);
  pushdata(a, 1);
  pushdata(a, 23);
  pushdatA(a, 345);
  while getsize(a) > 0 do
  begin
    writeln(getsize(a), ' ', getdata(a));
    popdata(a);
  end;}
  close(input);
  close(output);