program zadaciSaCasa;
type
  pokazivac = ^slog;
  slog = record
    broj:integer;
    sledeci : pokazivac;
    end;
 var
   elemListe:pokazivac;
   
procedure formKruznuListu(n:integer; var elemListe:pokazivac);
var
pomocni,pocetak:pokazivac;
i:integer;
begin
 pomocni:=nil;
 pocetak:=nil;
 elemListe:=nil;
 for i:=1 to n do
  begin
  new(pomocni);
  pomocni^.broj:=i;
  pomocni^.sledeci:=elemListe;
  if (pocetak = nil ) then pocetak:=pomocni;
  elemListe:=pomocni;
  end;
  pocetak^.sledeci:=elemListe;
end;

procedure ispisKruzneListe(elemListe:pokazivac)  ;
var
  pomocni,pocetak:pokazivac;
begin
      pomocni:=elemListe;
      pocetak:=elemListe;
      if (elemListe <> nil ) then
      begin
        repeat
          writeln(pomocni^.broj);
          pomocni:=pomocni^.sledeci;
          until (pomocni=pocetak);
      end;
end;


begin

formKruznuListu(10,elemListe);
ispisKruzneListe(elemListe);
end.