Procedure RALF;
var  head1, head2, a, b: reference;
                                   i: integer;
begin
 i:=0; new(head2);
 a:=head2; head2^.next:=nil;
 while head1<>nil do begin
   if (i mod 2)<>0 then head1:=head1^.next;
   else begin
     if head2^.next:=nil then head2^.inf:=head1^.inf;
     else begin
       new(b);
       a^.next:=b;
       a:=b;
       a^.inf:=head1^.inf;
     end;
   end;
   i:=i+1;
 end;
 a^.next:=nil;
end;