program mutatos;
type rekmutato=^rek;
     rek=record
     adat:integer;
     mute:rekmutato;
     muth:rekmutato;
     end;
var elso, akt, kov:rekmutato;
    a:integer;
begin
    for a:=1 to 25 do writeln;
    repeat
        if elso=nil then
                   BEGIN
                     readln(a);
                     if a<>0 then
                     begin
                     new(elso);
                     elso^.adat:=a;
                     elso^.mute:=nil;
                     elso^.muth:=nil;
                     akt:=elso;
                     readln(a);
                     end
                   end
                   else
                   begin
                     new(kov);
                     akt^.mute:=kov;
                     kov^.adat:=a;
                     kov^.mute:=nil;
                     kov^.muth:=akt;
                     akt:=kov;
                     readln(a);
                   end;
    until a=0;
    writeln('Ezek voltak:');
    akt:=elso;
    while akt<>nil do
    begin
      writeln(akt^.adat);
      kov:=akt;
      akt:=akt^.mute;
    end;
    writeln('Es most visszafele:');
    akt:=kov;
    while akt<>nil do
    begin
      writeln(akt^.adat);
      akt:=akt^.muth;
    end;
    readln
end.