program list;

type
  pelement = ^ element;
  element = record
    num: integer;
    next: pelement;
    end;

var
  head: pelement;

procedure add_element (var l: pelement);

var
  tmp: pelement;
  num: integer;
  i: integer;

begin
  new (tmp);
  readln (num);
  tmp^.num := num;
  tmp^.next := head;
  l^.next := tmp;
  l := tmp;
  end;


procedure create;

var
  j:byte;
  last:pelement;

begin
  new (head);
  head^.next := head;
  writeln ('enter num');
  readln (head^.num);
  last := head;
  repeat
    writeln ('enter num');
    add_element (last);
    writeln ('Press 1 to add number, press 0 to stop');
    readln (j);
    writeln;
  until j = 0;
end;

procedure print (l: pelement);

var
  tmp: pelement;

begin
  tmp := l;
  writeln (tmp^.num);
  repeat
    tmp := tmp^.next;
    writeln (tmp^.num);
  until tmp^.next = head;
end;


 begin
  create;
  print (head);
  readln
end.