program project1;

type

max=^noip;

noip=record

shu:integer;

xia:max;

end;

var

p,q:max;

n:integer;

begin

readln(n);

p:=nil;

while n0 do

begin

new(q);

q^.shu:=n;

q^.xia:=p;

p:=q;

readln(n);

end;

while qnil do

begin

write(q^.shu,' ');

q:=q^.xia;

end;

dispose(q);

readln;

readln;

end.