Паскаль. найти сумму произведений последовательности чисел s: =1*1+2*2+3*3+4**n. n введите с клавиатуры.

Program e05;   uses crt;     var       n,s,i: integer; begin   clrscr;   writeln('введите n: ');   readln(n);       for i: =1 to n do     s: =s+i*i;   writeln('ответ: ',s); end.

Using system; using system.collections.generic; using system.linq; using system.text; namespace consoleapplication26{    class program    {        static void main(string[] args)        {            random r = new random();             double[,] a = new double[3, 3];             console.writeline("исходная матрица: ");             for (int i = 0; i < 3; i++)            {                for (int j = 0; j < 3; j++)                {                    a[i, j] = r.next(-100, 100);                     console.write(a[i, j] + "   ");                 }                console.writeline();             }            console.writeline("преобразованная матрица: ");             for (int i = 0; i < 3; i++)            {                for (int j = 0; j < 3; j++)                {                    if (a[i, j] % 3 ! = 0)                    {                        a[i, j] = 0;                     }                }            }             for (int i = 0; i < 3; i++)            {                for (int j = 0; j < 3; j++)                {                    console.write(a[i, j] + "   ");                 }                console.writeline();             }         }    }}

Const     n = 33; var     a: array[1..n] of integer;     i,max,k: integer; begin randomize; write('исходный массив: '); for i: = 1 to n do       begin       a[i]: =random(n);       write(a[i],' ');       end; writeln; max: =1; for i: = 2 to n do       if a[i]> a[max] then max: =i; writeln('a[',max,'] = ',a[max]); write('искомые элементы: '); k: =0; for i: = 1 to n do       if (1< =a[i])and(a[i]< =12) then             begin             write(a[i],' ');             k: =k+1;             end; writeln; write('их количество: ',k); end. пример: исходный массив: 19 24 23 22 17 15 18 21 16 18 6 17 30 23 14 24 11 28 19 13 4 28 21 23 7 19 26 4 11 16 10 14 28 a[13] = 30 искомые элементы: 6 11 4 7 4 11 10 их количество: 7