program PascalschesDreieck;

type
  tRefListe = ^tListe;

  tListe = record
    wert : Integer;
    next : tRefListe;
  end;

function neueListe(anzahl, initialerWert : Integer) : tRefListe;
var
  i : Integer;
  tail : tRefListe;
begin
  New(tail);
  neueListe := tail;
  tail^.wert := initialerWert;

  for i:=2 to anzahl do
  begin
    New(tail^.next);
    tail := tail^.next;
    tail^.wert := initialerWert;
  end;
  tail^.next := nil;
end;

var
  testListe : tRefListe;
  aktuellerKnoten : tRefListe;
begin
  testListe := neueListe(3, 24);

  aktuellerKnoten := testListe;
  while aktuellerKnoten <> nil do
  begin
    Write(aktuellerKnoten^.wert, ' ');
    aktuellerKnoten := aktuellerKnoten^.next;
  end;
end.