Подсчитать сумму квадратов четных элементов. pascal !

// pascalabc.net 3.3, сборка 1583 от 25.11.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n=',99); a.println;   writeln('s = ',a.where(t-> t.iseven).select(t-> t*t).sum) end. пример n= 19 49 -39 -47 67 8 -10 43 -26 58 89 13 61 -98 11 8 89 44 76 30 s = 22484

Var  a: array[1..1000] of integer; n,i,s: integer; begin   write('write size array: '); readln(n);   for i: =1 to n do   read(a[i]);   s: =0;   for i: =1 to n do   if a[i] mod 2=0     then s: =s+sqr(a[i]);   writeln(s);   readln;   readln end.

x=16

ответ: 16 этажей

2, 3, 6, 18, 108

каждый член последовательности начиная с третьего равен произведению двух предыдущих:

2 * 3 = 6

3 * 6 = 18

6 * 18 = 108