program redovi;
type
  pokazivac= ^slog;
  slog = record
        br:integer;
        sledeci:pokazivac;
        end;
procedure naKrajReda(broj:integer;var prvi:pokazivac ; var poslednji:pokazivac);
var
 pomocni:pokazivac;
 begin
  new(pomocni);
  pomocni^.br:=broj;
  pomocni^.sledeci := nil;
  if (prvi=nil) then 
    begin
    prvi:=pomocni;
    poslednji:=pomocni;
    end
   else
    begin
    poslednji^.sledeci:= pomocni;
    poslednji:=pomocni;
    end;
 end;
 function izbaciIzReda(var prvi:pokazivac):integer;
 var pomocni:integer;
 begin
 
 if (prvi <> nil) then
  begin
    pomocni:=prvi^.br;
    prvi:=prvi^.sledeci;
  end;
  izbaciIzReda:=pomocni;
 end;
 
 procedure ispis(prvi:pokazivac);
 begin
  while(prvi <> nil) do
    begin
    write(prvi^.br, ' ');
    prvi:=prvi^.sledeci;
    end;
    writeln;
 end;
 var
 prvi,poslednji:pokazivac;
 i:integer;
 begin
 prvi:=nil;
 poslednji:=nil;
 
 for i:=1 to 10 do
  naKrajReda(i,prvi,poslednji);
 
 for i:=1 to 10 do
  begin
  ispis(prvi);
  izbaciIzReda(prvi);
  end;
 end.