function sqr2(n: Byte): Int64;
var
b, c: Int64;
begin
if (n <= 62) then
begin
if (n < 32) then
sqr2 := 1 shl n
else
begin
b := int64(1 shl 31);
c := 1 shl (n-31);
result := b * c * (-1);
end;
end else result := 0;
end;
Все мы знаем «народную» газету из рук в руки. В ней люди размещают бесплатные объявления на разные темы, что позволит продать или купить практически что угодно.