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

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;  Writeln('S = ',a.Where(t->t.IsEven).Select(t->t*t).Sum)end.Примерn= 1949 -39 -47 67 8 -10 43 -26 58 89 13 61 -98 11 8 89 44 76 30S = 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; readlnend.