uses crt;
type
 link=^item;
 item=record
   num:integer;
   next:link
 end;
var
 base:link;
procedure  add(var base:link);
var
 buff:link;
 ans:char;
begin
 repeat
    new(buff);
    read(buff^.num );
    buff^.next:=base;
    base:=buff;
    writeln('Budite dobavlyat ? (y/n):  ');
    ans:= Readkey;
 until ans='n'
end;
procedure writelist(base:link);
var
 i:integer;
begin
 clrscr;
 if base=nil then
 begin
   writeln('Spisok pust!!!');
   readln;
   exit
 end;
 while base<>nil do
   begin
     i:=i+1;
     write(base^.num:4);
     base:=base^.next
   end;
   readln;
end;
begin
 clrscr;
 writeln('vvedite list:');
 add(base);
 writelist(base);
 readln
end.