var
  i, s, c: integer;
  n: longword;
  A: array[1..30] of integer;
begin
  Randomize;
  //
  s := 0; c := 0; n := 1 shl (sizeof(integer) shl 3 - 1) or 1;
  //
  for i := low(A) to high(a) do begin
    //
    A[i] := 100 - Random(200);
    writeln(A[i]);
    //
    if (n = (A[i] and n)) then begin
      //
      inc(s, A[i]);
      inc(c);
    end;
  end;
  //
  if (0 < c) then
    writeln('Sum: ', s)
  else
    writeln('No elements');
end.
 

dmFyCiAgaSwgcywgYzogaW50ZWdlcjsKICBuOiBsb25nd29yZDsKICBBOiBhcnJheVsxLi4zMF0gb2YgaW50ZWdlcjsKYmVnaW4KICBSYW5kb21pemU7CiAgLy8KICBzIDo9IDA7IGMgOj0gMDsgbiA6PSAxIHNobCAoc2l6ZW9mKGludGVnZXIpIHNobCAzIC0gMSkgb3IgMTsKICAvLwogIGZvciBpIDo9IGxvdyhBKSB0byBoaWdoKGEpIGRvIGJlZ2luCiAgICAvLwogICAgQVtpXSA6PSAxMDAgLSBSYW5kb20oMjAwKTsKICAgIHdyaXRlbG4oQVtpXSk7CiAgICAvLwogICAgaWYgKG4gPSAoQVtpXSBhbmQgbikpIHRoZW4gYmVnaW4KICAgICAgLy8KICAgICAgaW5jKHMsIEFbaV0pOwogICAgICBpbmMoYyk7CiAgICBlbmQ7CiAgZW5kOwogIC8vCiAgaWYgKDAgPCBjKSB0aGVuCiAgICB3cml0ZWxuKCdTdW06ICcsIHMpCiAgZWxzZQogICAgd3JpdGVsbignTm8gZWxlbWVudHMnKTsKZW5kLgo=