أرجو المسااااعدة

[الحآذق]

أرجو المساعدة عندي prog triage une liste chainéé sipmle ma3raftch win rah l probleme min ncompilé fel pascal matebghich


Program liste doublement chainée
Type : element ;
Info : integer ;
Suivant,suivanta,suivantb :^element ;
End ;
Var
P,Q,T :^element ;
I,n :integer ;
Begin
New (T) ;
Read (T^.info) ;
T^.suivant := nil ;
Q :=T ;
Write (‘combien de valeur vous voulez crées’) ;
Read (n) ;
For i :=2 to n do
New (P) ;
Read(P^.info) ;
P^.suivant :=nil ;
Q^.suivant b:=p ;
P^.suivanta :=Q ;
End.