Action créer (n:entier ;l:liste); var i : entier ; p , q : liste debut allow (p); l:=p p^.val := 1 ; pour i = 2 à n faire allow (q); q^.val:=i ; p^.succ:= q ; p:=q; fin ; p^.succ:=nil ; fin . ممكن شرح كل سطر , و ان امكن بالرسم كي افهم جيداا و شكراا
