Найти сумму элементов массива кратных 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.Println
end.

Пример
n= 15
16 -38 47 11 16 -16 -25 21 16 4 11 -18 -47 -41 19
36

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

1) 
       IP    9.     102.    202.  52
маска   255.   255.   240.    0
адрес     9.     102.   192.    0

в адрес сразу записываем выделенные полностью соответствующие байты (первый и второй байты)  байтам маски =255 (255(10сс) = 1111 1111 (2сс))
последний байт маски =0, он "гасит" всё, и в адресе будет 0.

остался один третий байт.
202 и 240
202 (10сс) = 128+64+8+2=2^7 + 2^6+2^3+2^1 = 1100 1010 (2cc)
240 (10cc) = 128+64+32+16=2^7+2^6+2^5+2^4=1111  0000 (2cc)

поразрядная конъюнкция:

1100 1010 * поразрядно
1111  0000

1100 0000 =2^7 +2^6 =128+64= 192 (10cc) - искомое значение третьего байта в 10сс.

В первую очередь потому, что гибкие магнитные диски давно уже практически вышли из употребления, их совершенствование никого не интересует, в современные конструкции дисководы для гибких дисков вообще не ставятся. Уже и CD-то практически в А с точки зрения техники - в жестких дисках несколько пластин, головки не трутся по дискам, а летают над ними на воздушной подушке, вся система благодаря жесткости дисков прецизиционная, появление пыли внутри исключено системой фильтрации воздуха, в жесткие диски встроены микроконтроллеры, обеспечивающие работу следящей системы, управляющей перемещением головок. что обеспечивает намного меньшее расстояние между дорожками и намного более высокую плотность записи на этих дорожках.