Найти производные функций первого и второго порядка (в matcad)
y=tg*ln*x

Я не трус, но я боюсь!
(Бриллиантовая рука)

Да нам, царям, молоко нужно выдавать за вредность!
(Иван Васильевич меняет профессию)

Этот нехороший человек предаст нас при первой же опасности!
(Джентльмены удачи)

Бамбарбия! Киргуду! Шутка!
(Кавказская пленница)

Шурик, это же не наш метод!
(Операция Ы и другие приключения Шурика)

Восток – дело тонкое.
Белое солнце пустыни

Утром деньги – вечером стулья, вечером деньги – ночью стулья…
(двенадцать стульев)

он, конечно, виноват, но он… не виноват…
(Берегись автомобиля!)

const

   handsfree = false;

   nmax = 10;

   random_min = -50;

   random_max = 50;

var

   a: array[0..nmax] of real;

   i, n: integer;

   sum, x: real;

begin

   {ввод массива}

   n := nmax;

   if handsfree then begin

       for i := 0 to n do

       begin

           a[i] := random(random_max - random_min) + random_min;

           write(a[i], ' ');

       end

   end

   else begin

       for i := 0 to n do

           readln(a[i]);

   end;

   writeln();

   

   {подсчет суммы}

   write('x = ');

   readln(x);

   

   sum := a[n];

   for i := n - 1 downto 0 do

       sum := sum * x + a[i];

   writeln('S = ', sqrt(sum));

end.