program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  Queue=^Element;
  Element=record
    dana:integer;
    nast:Queue;
  end;

procedure Dodaj(wart: integer; Top: Queue);
var
  Temp:Queue;
begin
  new(Temp);
  Temp.dana:=wart;
  Temp.nast:=nil;

  while Top<>nil do
  begin
  Top:=Top.nast;
  end;
  Top:=Temp;
  Top.dana:=Temp.dana;
end;

procedure List(Top:Queue);
begin
  writeln(Top.dana);
  List(Top.nast);
end;

var
  Top:Queue;
  i:integer;

begin


for i:=1 to 10 do
begin
  Dodaj(i,Top);
end;

List(Top);

readln;
readln;
readln;
readln;

end.