Напишите программу, вычисляющую значение функции:

Var j,n,i: longint;             a,b: array [1..1000] of integer; begin                    readln(n); // считываем число                    i: =1; // начинаем с первого элемента массива           while (n> 0) do //пока n больше нуля           begin                 a[i]: =n mod 10;   //тем самым выбираем последнюю цифру числа                 n: =n div 10; // откидываем последнюю цифру                 i: =i+1; // следующий элемент массива           end;                   // по окончании в массиве a будет храниться наше число только                 // в  обратном порядке           i: =i-1; // теперь i равно длине числа +1 поэтому отнимаем 1           for j: =i downto 1 do // с конца массива а до 1           begin                 b[i-j+1]: =a[j]; // заполняем b в обратном порядке           end;           //теперь в массиве b хранится наше число в нужном порядке           for j: =1 to i do           begin                         write(b[j],' ');           end; end.

Var n,sum,i,ml: longint; begin         readln(n);         sum: =0;         ml: =1;         for i: =1 to n do         begin                     sum: =sum+2*i+4;                   ml: =ml*(2*i+4);         end;         writeln(sum);         writeln(ml); end. вроде бы так)