Fronta

program Fronta;
type tData = integer;
type UkPrvek  = ^Prvek;                     { typ ukazatele na prvek }

     Prvek = record                      { typ prvku              }
              Data:tData;                        { datové položky prvku   }
              Dalsi: UkPrvek;                { odkaz na další prvek   }
             end;

var  Zac,                                { ukazatele na začátek   }
     Kon   : UkPrvek;                       { a konec fronty         }
     x:tData;

procedure init;
begin
     Zac:=nil;
     Kon:=nil;
end;

procedure insert(var data:tData);
var pom:UkPrvek;
begin
     new(pom);
     pom^.Data:=data;
     if Zac=nil then Zac:=pom
     else Kon^.Dalsi:=pom;
     Kon:=pom;
     writeln('Provek vlozen')
end;

procedure vypis;
var pom:UkPrvek;
begin
     pom:=Zac;
     while pom<>nil do
     begin
          writeln(pom^.Data);
          pom:=pom^.dalsi;
     end;
end;

begin
init;
x:=1;
while x <> 0 do
begin
     readln(x);
     insert(x);
end;
vypis;
readln;

end.