program Budowa_listy_bez_glowy_z_dow_liczby_el;
type ptr=^el;
     el=record
          info: integer;
          next: ptr
        end;  
var i: integer;
    p:^integer;
    l, q:ptr; (*l-lista - wskaznik do pierwszego, elementu; q zm. pomocnicza*)
 
begin
    l:=nil;  (* l=nil ozn. listę pusta*)
    i:=5;
    readln(i);
    while i<>-1 do
      begin
        new(q);
        q^.next:=l;
        q^.info:=i;
        l:=q;
        readln(i);
     end;
    q:=l; i:=1;
    while q<>nil do begin writeln(i,': ',q^.info); q:=q^.next; i:=i+1 end
end.

cHJvZ3JhbSBCdWRvd2FfbGlzdHlfYmV6X2dsb3d5X3pfZG93X2xpY3pieV9lbDsKdHlwZSBwdHI9XmVsOwogICAgIGVsPXJlY29yZAogICAgICAgICAgaW5mbzogaW50ZWdlcjsKICAgICAgICAgIG5leHQ6IHB0cgogICAgICAgIGVuZDsgIAp2YXIgaTogaW50ZWdlcjsKICAgIHA6XmludGVnZXI7CiAgICBsLCBxOnB0cjsgKCpsLWxpc3RhIC0gd3NrYXpuaWsgZG8gcGllcndzemVnbywgZWxlbWVudHU7IHEgem0uIHBvbW9jbmljemEqKQogICAgCmJlZ2luCiAgICBsOj1uaWw7ICAoKiBsPW5pbCBvem4uIGxpc3TEmSBwdXN0YSopCiAgICBpOj01OwogICAgcmVhZGxuKGkpOwogICAgd2hpbGUgaTw+LTEgZG8KICAgICAgYmVnaW4KICAgICAgICBuZXcocSk7CiAgICAgICAgcV4ubmV4dDo9bDsKICAgICAgICBxXi5pbmZvOj1pOwogICAgICAgIGw6PXE7CiAgICAgICAgcmVhZGxuKGkpOwogICAgIGVuZDsKICAgIHE6PWw7IGk6PTE7CiAgICB3aGlsZSBxPD5uaWwgZG8gYmVnaW4gd3JpdGVsbihpLCc6ICcscV4uaW5mbyk7IHE6PXFeLm5leHQ7IGk6PWkrMSBlbmQKZW5kLg==

MgotMQoyCjMKNA==

2
-1
2
3
4