t_16_22_a

Program t_16_22_a(Input,Output);
Type
    List=^Node;
    Node=Record
            Elem: Integer;
            Next: List
          End;

Procedure Add(var L: List; E: Integer;);
Var x: List;
    Begin
        New(x);
        x^.Elem:=E;
        x^.Next:=L;
L:=x;
    End;