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

var

  n,i,a: integer;

begin

  readln(n);

  for i: =1 to n do

  begin

  read(a);

  write(abs(a),' ');

end;

end.