var a := new List<integer>;
begin
  for var i := 1 to 10 do
    a.Add(random(-10,20));

  writeln(a);

  var b: integer;
  write('Введите номер элемента: ');
  readln(b);
  a.RemoveAt(b-1);

  writeln(a);

  var c, temp: integer;
  write('Введите кол-во элементов: ');
  readln(c);

  for var i := 1 to c do
  begin
    readln(temp);
    a.Add(temp);
  end;

  writeln(a);
end.