type
   listptr=^list;
   list=record
      x:real;
      nextptr:listptr;
   end;
var
   firstptr,curptr,ptr,prchisloptr:listptr;
   n,i:integer;
   prchislo:real;
begin
   write('‚Введите количество элементов списка  >');
   readln(n);
   writeln('‚Введите элементы списка :');
   firstptr:=nil;
   for i:=1 to n do
      begin
         new(curptr);
         write('x',i,'=');
         readln(curptr^.x);
         if firstptr=nil
            then
               firstptr:=curptr
            else
               ptr^.nextptr:=curptr;
         ptr:=curptr;
      end;
         if firstptr<>nil
            then
               curptr^.nextptr:=nil;
      curptr:=firstptr;
            if curptr^.x>=1
               then
                  curptr^.x:=prchislo;
            curptr:=curptr^.nextptr;

    ???????????????????????????
      readln;
end.