Найти сумму элементов массива кратных 4

PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;  a.Where(t->t mod 4=0).Sum.Printlnend.Примерn= 1516 -38 47 11 16 -16 -25 21 16 4 11 -18 -47 -41 1936

Program n1;const n=10;var a: array[1..n] of integer;i,sum: integer;beginsum:=0;write('массив: ');for i:=1 to n do begina[i]:=random(100);write(a[i],' ');if a[i] mod 4=0 then sum:=sum+a[i];end;writeln;write('сумма кратных 4: ',sum);end.