program mutatos;
type rekmutato=^rek;
     rek=record
     adat:integer;
     mut:rekmutato;
     end;
var elso, akt, kov:rekmutato;
    a:integer;
begin
    new(elso);
    readln(a);
    elso^.adat:=a;
    elso^.mut:=nil;
    akt:=elso;
    readln(a);
    repeat
        new(kov);
        akt^.mut:=kov;
        kov^.adat:=a;
        kov^.mut:=nil;
        akt:=kov;
        readln(a);
    until a=0;
    akt:=elso;
    repeat
      writeln(akt^.adat);
      akt:=akt^.mut;
    until akt^.mut=nil;
    writeln(akt^.adat);
    readln
end.