program danhsach_lienket;
type ptr=^ele;
    ele=record
        inf:integer;
        next:ptr
        end;
var p,head:ptr;pvar:pointer;
    stt:integer;
{------------------}
begin
  mark(pvar);
  new(head);
  p:=head;
  STT:=1;
  write('nhap pt thu ',stt,':');
  readln(p^.inf);
  inc(stt);
  new(p^.next);
  p:=p^.next;
  write('nhap pt thu ',stt,':');
  readln(p^.inf);
  new(p^.next);
  p:=p^.next;
  write('nhap pt thu ',stt,':');
  readln(p^.inf);
  inc(stt);
  p^.next:=nil;
  writeln('so pt cua ds: ',stt);
  {-------------------------------}
  writeln('danh sach vua nhap: ');
  p:=head;
  STT:=1;
  while (p<>nil) do
    begin
        writeln('pt thu ',stt,':',p^.inf);
        p:=p^.next;
        inc(stt);
    end;
  readln;
  release(pvar);
end.

program danhsach_lienket;
type ptr=^ele;
    ele=record
        inf:integer;
        next:ptr
        end;
var p,head:ptr;pvar:pointer;
    stt,i,n:integer;
{------------------}
begin
  head:=nil;
  new(head);
  p:=head;
  write('nhap so pt: ');
  readln(n);
  for i:=1 to n do
    begin
      write('nhap pt thu ',i,': ');
      readln(p^.inf);
      new(p^.next);
      if i<n then p:=p^.next;
    end;
  p^.next:=nil;
  writeln('danh sach vua nhap: ');
  p:=head;
  stt:=1;
  while (p<>nil) do
    begin
        writeln('pt thu ',stt,':',p^.inf);
        p:=p^.next;
        inc(stt);
    end;
  readln
end.