program spisok;
uses
crt;
type
TList = ^el;
el = record
danie : integer;
next : TList;
end;

procedure create_list ( var nacalo , konec : TList );
          var g : TList;
          x : integer;
begin
   nacalo := nil;
   konec := nil;
   writeln('Создаём список. Введите целые числа.');
   writeln('Желая закончить, введите 0.');
   readln ( x );
   while x <> 0 do
      begin
         if nacalo = nil
         then
            begin
               new( g );
               g^.danie := x;
               g^.next := nil;
               nacalo := g;
               konec := g;
               readln( x );
            end
         else
            begin
               new( g );
               g^.danie := x;
               g^.next := nil;
               konec^.next := g;
               konec := g;
               readln( x );
            end
         end;
   writeln('Список успешно создан.');
end;

procedure print_list( nacalo : TList );
          var s : TList;
begin
   writeln('Вводим список:' );
   s := nacalo;
   while s <> nil do
      begin
         write( s^.danie, ' ');
         s := s^.next;
      end;
   writeln;
end;

procedure remove_list( var nacalo, konec : TList );
          var s : TList;
begin
   writeln('Удаляем список с конца.');
   while nacalo <> nil do
      begin
         s := nacalo;
         if konec <> nacalo
         then
            begin
               while s^.next <> konec do
               s := s^.next;
               writeln(' Удаляем ', s^.next^.danie);
               konec := s;
               dispose( s^.next );
            end
         else
            begin
               writeln(' Удаляем первый: ', s^.danie);
               dispose( s );
               nacalo := nil;
               konec := nil;
            end;
      end;
end;

var nacalo1 , konec1 : TList;
begin
   create_list ( nacalo1 , konec1 );
   print_list ( nacalo1 );
   remove_list ( nacalo1 , konec1 );
   readln;
end.

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}
uses
system.sysutils;
type
TList = ^el;
el = record
danie : integer;
next : TList;
prev : TList;
end;

var a:(Create,Print,Remove,SelectDel,Exit);
    b:char;

procedure create_list ( var nacalo , konec : TList );
          var g : TList;
          x : integer;
begin
   nacalo := nil;
   konec := nil;
   writeln(&#39;Создаём список. Введите целые числа.&#39;);
   writeln(&#39;Желая закончить, введите 0.&#39;);
   readln( x );
   while x <> 0 do
      begin
         if nacalo = nil
         then
            begin
               new( g );
               g^.danie := x;
               g^.next := nil;
               g^.prev := nil;
               nacalo := g;
               konec := g;
               readln( x );
            end
         else
            begin
               new( g );
               g^.danie := x;
               g^.next := nil;
               konec^.next := g;
               g^.prev:=konec;
               konec := g;
               readln( x );
            end;
      end;
   writeln(&#39;Список успешно создан.&#39;);
end;

procedure print_list( nacalo : TList );
          var s : TList;
begin
   writeln(&#39;Вводим список:&#39; );
   s := nacalo;
   while s <> nil do
      begin
         write( s^.danie, &#39; &#39;);
         s := s^.next;
      end;
   writeln;
end;

procedure remove_list( var nacalo, konec : TList );
          var s : TList;
begin
   writeln(&#39;Удаляем список с конца.&#39;);
   while nacalo <> nil do
      begin
         s := nacalo;
         if konec <> nacalo
         then
            begin
               while s^.next <> konec do
               s := s^.next;
               writeln(&#39; Удаляем &#39;, s^.next^.danie);
               konec := s;
               dispose( s^.next );
            end
         else
            begin
               writeln(&#39; Удаляем первый: &#39;, s^.danie);
               dispose( s );
               nacalo := nil;
               konec := nil;
            end;
      end;
end;

var nacalo1 , konec1 : TList;

procedure SelectiveDel(var nacalo:Tlist);
var
  counter,i:Integer;
  target:TList;
begin
  writeln(&#39;Введите номер удаляемого элемента&#39;);
  readln(counter);
  for i := 1 to counter-2 do nacalo:=nacalo^.next;
  target:=nacalo^.next;
  nacalo^.next:=target^.next;
  nacalo:=nacalo^.next;
  nacalo^.prev:=target^.prev;
  while nacalo^.prev<>nil do
    nacalo := nacalo^.prev;
  dispose(target);
end;

begin
a:=exit;
repeat
   writeln(&#39;List operations: Create=C|Print=P|Remove=R|SelectiveDelete=S|Exit=Any other key&#39;);
   readln(b);
   b:=uppercase(b)[1];
   a:=Exit;
   case b of
   &#39;C&#39;: a:=create;
   &#39;P&#39;: a:=print;
   &#39;R&#39;: a:=remove;
   &#39;E&#39;: a:=exit;
   &#39;S&#39;: a:=SelectDel;
   end;
   case a  of
   Create: create_list ( nacalo1 , konec1 );
   Print: print_list ( nacalo1 );
   Remove: remove_list ( nacalo1 , konec1 );
   SelectDel: SelectiveDel(nacalo1);
   end;
until a=Exit;
Writeln(&#39;Для выхода нажмите Enter&#39;);
readln;
end.

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}
uses
system.sysutils;
type
TList = ^el;
el = record
danie : integer;
next : TList;
prev : TList;
end;

var a:(Create,Print,Remove,SelectDel,Exit);
    b:char;

procedure create_list ( var nacalo , konec : TList );
          var g : TList;
          x : integer;
          buf:string;
          flag:boolean;
begin
   nacalo := nil;
   konec := nil;
   flag:=true;
   writeln('Создаём список. Введите целые числа.');
   writeln('Желая закончить, введите любую букву и/или нажмите enter.');
   try
     readln( x );
   except
     writeln('Список не был создан');
     flag:=false;
   end;
   if flag then
   begin
   repeat
         if nacalo = nil
         then
            begin
               new( g );
               g^.danie := x;
               g^.next := nil;
               g^.prev := nil;
               nacalo := g;
               konec := g;
               readln( buf );
            end
         else
            begin
               new( g );
               g^.danie := x;
               g^.next := nil;
               konec^.next := g;
               g^.prev:=konec;
               konec := g;
               readln( buf );
            end;
          try
            x:=StrToInt(buf);
          except
            break;
          end;
   until false;
   writeln('Список успешно создан.');
   end;
end;

procedure print_list( nacalo : TList );
          var s : TList;
begin
   writeln('Вводим список:' );
   s := nacalo;
   while s <> nil do
      begin
         write( s^.danie, ' ');
         s := s^.next;
      end;
   writeln;
end;

procedure remove_list( var nacalo, konec : TList );
          var s : TList;
begin
   writeln('Удаляем список с конца.');
   while nacalo <> nil do
      begin
         s := nacalo;
         if konec <> nacalo
         then
            begin
               while s^.next <> konec do
               s := s^.next;
               writeln(' Удаляем ', s^.next^.danie);
               konec := s;
               dispose( s^.next );
            end
         else
            begin
               writeln(' Удаляем первый: ', s^.danie);
               dispose( s );
               nacalo := nil;
               konec := nil;
            end;
      end;
end;

var nacalo1 , konec1 : TList;

procedure SelectiveDel(var nacalo:Tlist);
var
  counter,i:Integer;
  target:TList;
begin
  writeln('Введите номер удаляемого элемента');
  readln(counter);
  for i := 1 to counter-2 do nacalo:=nacalo^.next;
  target:=nacalo^.next;
  nacalo^.next:=target^.next;
  nacalo:=nacalo^.next;
  nacalo^.prev:=target^.prev;
  while nacalo^.prev<>nil do
     nacalo := nacalo^.prev;
  dispose(target);
end;

begin
a:=exit;
repeat
   writeln('List operations: Create=C|Print=P|Remove=R|SelectiveDelete=S|Exit=Any other key');
   readln(b);
   b:=uppercase(b)[1];
   a:=Exit;
   case b of
      'C': a:=create;
      'P': a:=print;
      'R': a:=remove;
      'E': a:=exit;
      'S': a:=SelectDel;
   end;
   case a  of
      Create: create_list ( nacalo1 , konec1 );
      Print: print_list ( nacalo1 );
      Remove: remove_list ( nacalo1 , konec1 );
      SelectDel: SelectiveDel(nacalo1);
   end;
until a=Exit;
Writeln('Для выхода нажмите Enter');
readln;
end.