program spojovy_seznam;
type
	plist=^list;
	list = record
		 value:integer;
		 next:plist;
		 end;

procedure list_new(var l:plist);
begin
	l:=NIL;
end;

procedure list_push(var l:plist; i:integer);
var lnew: plist;
begin
	new(lnew);
	lnew^.next := l;
	lnew^.value := i;
	l:= lnew;
end;

procedure list_pop(var l:plist);
var tmp:plist;
begin
	tmp:=l;
	l:=l^.next;
	dispose(tmp);
end;

function list_empty(l:plist): boolean;
begin
	list_empty:= l = nil;
end;

procedure list_dispose(var l:plist);
begin
	while not list_empty(l) do list_pop(l);
end;

function list_front(l:plist): integer;
begin
	list_front := l^.value;
end;

procedure list_move_head(var l1,l2:plist);
var temp:plist;
begin
	temp:=l2;
	l2:=l1;
	l1:=l2^.next;
	l2^.next:=temp;
end;

procedure list_reverse (var l:plist);
var temp : plist;
begin
	list_new(temp);
	
	while NOT list_empty(l) do
	begin
   		list_move_head(l, temp);
	end;

	l:=temp;
end;


var 	cislo:integer;
	zoznam:plist;

begin
	{list_new(zoznam);}
	while true do
	begin
		readln(cislo);
		if cislo=0 then break;
		list_push(zoznam,cislo);
	end;
	list_reverse(zoznam);
	while not(list_empty(zoznam)) do
	begin
		writeln(list_front(zoznam));
		list_pop(zoznam);
	end;
end.