1 .модифицировать задачу 2. массив содержит четырехзачные натуральные числа
3.summa = summa +A[i]-A[i+Y]
4. Y = 6
5. N=10+Y​

Объяснение:

program functionx;

// в константах задаем интервал функций, в пределах которого будем вычислять их значения

const

   LoX = -10;

   HiX = 10;

var

   // указываем типы переменных с которыми будем работать:

   // Х - целое число с шагом 1 из вышеопределенного интервала

   // fx результат расчета функции пока не знаем, поэтому он не целый

   x : integer;

   fx : real;

begin

   // в цикле последовательно перебираем значения Х из заданного интервала от LoX до HiX

   for x:= LoX to HiX do begin

       // здесь выбираем два варианта расчета функции:

       // если (if) Х > 3, то (then) подставляем Х в одну функцию,

       // в остальных случаях (else) - в другую

       if x > (-3)

       then fx := ln(x+3)/(x*x+9)

       else fx := (-x)*(-x)-1.1*x+9;

       // выводим на экран, сначала Х, затем значение f(x)

       writeln ('x = ',x,', f(x) = ',fx : 10:5);

   end;

end.

Free Pascal Compiler version 2.6.2-8 [2014/01/22] for x86_64                                                                          

Copyright (c) 1993-2012 by Florian Klaempfl and others                                                                                

Target OS: Linux for x86-64                                                                                                            

Compiling main.pas                                                                                                                    

Linking a.out                                                                                                                          

19 lines compiled, 0.1 sec                                                                                                            

/usr/bin/ld.bfd: warning: link.res contains output sections; did you forget -T?                                                        

x = -10, f(x) =  120.00000                                                                                                            

x = -9, f(x) =   99.90000                                                                                                              

x = -8, f(x) =   81.80000                                                                                                              

x = -7, f(x) =   65.70000                                                                                                              

x = -6, f(x) =   51.60000                                                                                                              

x = -5, f(x) =   39.50000                                                                                                              

x = -4, f(x) =   29.40000                                                                                                              

x = -3, f(x) =   21.30000                                                                                                              

x = -2, f(x) =    0.00000                                                                                                              

x = -1, f(x) =    0.06931                                                                                                              

x = 0, f(x) =    0.12207                                                                                                              

x = 1, f(x) =    0.13863                                                                                                              

x = 2, f(x) =    0.12380      

x = 3, f(x) =    0.09954                                                                                                              

x = 4, f(x) =    0.07784                                                                                                              

x = 5, f(x) =    0.06116                                                                                                              

x = 6, f(x) =    0.04883                                                                                                              

x = 7, f(x) =    0.03970                                                                                                              

x = 8, f(x) =    0.03285                                                                                                              

x = 9, f(x) =    0.02761                                                                                                              

x = 10, f(x) =    0.02353                                                                                                              

                                                                                                                                     

                                                                                                                                     

...Program finished with exit code 0                                                                                                  

Press ENTER to exit console.        

Выполняя алгоритм, получаем следующий результат (15 итераций)

1. 0..65534 -> 32767
2. 0..32766 -> 16383
3. 0..16382 -> 8191
4. 0..8190  -> 4095
5. 0..4094  -> 2047
6. 2048..4094 -> 3071
7. 2048..3070 -> 2559
8. 2560..3070 -> 2815
9. 2816..3070 -> 2943
10. 2944..3070 -> 3007
11. 2944..3006 -> 2975
12. 2976..3006 -> 2991
13. 2992..3006 -> 2999
14. 3000..3006 -> 3003
15. 3000..3002 -> 3001

Если лень перебирать вручную, можно воспользоваться программой

var k,l,r,x,f:integer;
begin
f := 3001;
l := 0;
r := 65534;
x := (l + r) div 2;
k := 1;
while (x <> f) and (l < r) do
  begin
  writeln(k,' ',l,' ',r,' ',x);
  k := k + 1;
  if f < x then r := x - 1
    else l := x + 1;
  x := (l + r) div 2
  end;
writeln(k,' ',l,' ',r,' ',x);
end.