Подсчитать сумму квадратов четных элементов. 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.

алфавит из 33 букв это:

аа, бб, вв, гг, дд, ее, ёё, жж, зз, ии, , кк, лл, мм, нн, оо, пп, рр, сс, тт, уу, фф, хх, цц, чч, шш, щщ, ъъ, , , ээ, юю, яя