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

begin
  var a:=ArrRandom(ReadInteger('n='),-99,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