1. вычислите: 1) 1+x& 02) x& x& 13) 0& x+04) 0+x& x2. найдите все целые числа z, для которых истинно высказывание: 1) (отрицание (инверсия) (z> 5)) & (z2 < 100) 2) (отрицание (z> 5)-> (z> 10)) 3. логическое отрицание восьмиразрядного двоичного числа записанное в десятичной системе счисления равно 217 определите исходное число в десятичной системе счисления

Var
  a, b, c: integer;

function min_3(const a, b, c: integer): integer;
var
  local_min: integer;
begin
  if (a < b) then
    local_min := a
  else
    local_min := b;
      if (c < local_min) then
    local_min := c;
      Result := local_min
end;

function max_3(const a, b, c: integer): integer;
var
  local_max: integer;
begin
  if (a >= b) then
      local_max := a
  else
      local_max := b;
       
  if (c > local_max) then
      local_max := c;

  Result := local_max;
end;

begin
  writeln('Введите a, b, c -> ');
  readln(a, b, c);
  writeln('Результат: ', min_3(a, b, c) + max_3(a, b, c), '.');
end.

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(49,-50,50); a.Println;
  Writeln('Сумма равна ',a.Sum);
  if not a.Any(t->t=0) then Writeln('Произведение равно ',
      a.Aggregate(BigInteger(1),(p,q)->p*q))
end.

Пример
-26 -4 -2 -12 -38 -3 3 -12 -22 -30 -41 -38 34 20 34 -7 -10 -34 16 -1 -20 -17 49 -48 50 -37 -30 25 -42 -24 16 7 -27 2 8 44 -31 42 39 -29 -4 21 19 41 -34 -9 -4 48 47
Сумма равна -71
Произведение равно -5875206582842929080605341032818854321985176247205888000000000