Задачка на сообразительность (Делфи)

[Arigato]

Что делает данная программка (консольная, Делфи):

var a, b: Integer;
begin
  ReadLn (a, b);
  WriteLn (a and ((a - b) shr 31 - 1) or b and not ((a - b) shr 31 - 1));
end.

Ответьте без компиляции.

[Levsha100]

Могу предположить, что умножает эти два числа, но я могу ошибаться.

a and       ((a - b) shr 31 - 1) 
or 
b and not ((a - b) shr 31 - 1)

[Juffin]

а что такое shr?

[Levsha100]

Побитовый сдвиг.

[Goodwin98]

Говорит какое из них больше ?

[Arigato]

Сообщение от Goodwin98

Говорит какое из них больше ?

Определили без компиляции?

А как переделать код, что бы находил меньшее из 2-х чисел?

[Goodwin98]

Определили без компиляции?

да у меня и дельфи-то нету...

А как переделать код, что бы находил меньшее из 2-х чисел?

может быть
a and not ((a - b) shr 31 - 1) or b and ((a - b) shr 31 - 1)) ?

[Arigato]

Более наглядно код выглядит так:

Readln (a, b);
k := (a - b) shr 31 - 1;
max := a and k or b and not k;
Writeln (max);

Вычисление максимума из двух чисел, не используя операции сравнения, только арифметические и логические операции.

[mutabor]

и логические операции

В данном случае они не логические а побитовые. В С++ к примеру для этого отдельные операторы.

Ну, а расшифровать для публики?
Насколько я понял, в силу моего дырявого образования, 31 это потому что интегер 32 битный, т.е. таким образом определяется по первому биту, отрицательное значение или положительное?

[Levsha100]

31 это потому что интегер 32 битный

А если unsigned модификатор?
Блин, мой тупой парсер захавал строку

В С++ к примеру для этого отдельные операторы.

и сказал мозгу что тут идет речь С++.
Сори.
P.S. Пора процу в спящий режим, а то еще и перезагружусь.
P.S.S. Как то странно я сегодня мессажу 0_О