Напишите программу для отображения функции в программе pascal abc y=arctg(3x+1.5), на отрезке [-35; 35].

//pascalabc.net версия 3.3.1590 от 03.12.2017 //если программа не запускается, то обновите версию uses graphabc; const       x_min = -15.0;       x_max = 15.0;       dx = 0.01; function f(x: real): real; begin       f : = arctan(3 * x + 1.5); end; begin       //настраиваем размер окна под график, влияет на маштаб       window.width : = 1000;       window.height : = 300;             window.isfixedsize : = true; // фиксируем размеры окна       coordinate.origin : = window.center; //выставляем начало координат в центр окна       coordinate.setmathematic; //выставляем направление осей как в принято       var scale : = window.width / (x_max - x_min); // вычисляем маштаб             var x : = x_min;       var y_max : = f(x_max); // подставляем реальные значения       var y_min : = f(x_min); // подставляем реальные значения             repeat               try                       var y : = f(x);                       if y > y_max then y_max : = y;                       if y < y_min then y_min : = y;               finally                       x : = x + dx;               end;       until x > x_max;             //  оси координат, стрелочки сами если надо       pen.color : = clsilver;       line(round((x_min - 1) * scale), 0, round((x_max + 1) * scale), 0);       line(0, round((y_min - 1) * scale), 0, round((y_max + 1) * scale));       circle(0, round(1 * scale), 1); //единичная метка       circle(round(1 * scale), 0, 1); //единичная метка             x : = x_min;       repeat               try                       var y : = f(x);                       putpixel(round(x * scale), round(y * scale), clblueviolet);               finally                       x : = x + dx;               end;       until x > x_max; end.

//обьявляем дополнительные переменные и главный массив, а также два дополнительных - они будут "половинками". var   a, b, c: array [1..100] of longint;   i, min, n, j, t: longint; begin   //читаем количество элементов в нашем массиве.   readln(n);     //читаем массив.   for i : = 1 to n do read(a[i]);     //заполняем первую "половинку".   for i : = 1 to n div 2 do b[i] : = a[i];     //заполняем вторую "половинку". но раз это уже вторая "половинка" главного массива, то и   //цикл теперь должен начинаться со второй части массива, а заканчиваться уже в его конце.   for i : = n div 2 + 1 to n do c[i - n div 2] : = a[i];     //теперь отсортируем первую "половинку" методом выбора. идея этого метода   //основывается на том, что мы ищем минимальный среди неотсортированных элемент,   //а затем просто swap-аем его с тем, который стоит сразу после отсортированных.   for i : = 1 to (n - 1) div 2 do   begin       min : = i;       for j : = i + 1 to n div 2 do           if b[min] > b[j] then               min : = j;       if min < > i then begin           t : = b[i];           b[i] : = b[min];           b[min] : = t;       end;   end;     //затем вторую точно также, только стоит обратить внимание на сравнения.   //так как надо отсортировать по убыванию, то теперь сравнение перед "swap"-ом   //будет другим.   for i : = 1 to (n - 1) div 2 do   begin       min : = i;       for j : = i + 1 to n div 2 do           if c[min] < c[j] then               min : = j;       if min < > i then begin           t : = c[i];           c[i] : = c[min];           c[min] : = t;       end;   end;     //а теперь просто по очереди выводим готовые "половинки", не забывая ставить   //пробел после вывода каждого элемента.   for i : = 1 to n div 2 do write(b[i], ' ');   for i : = 1 to n - n div 2 do write(c[i], ' '); end.