Записать прямой код числа -81 в 8ми разрядном формате со знаком​

program first; var i,a,b: integer; begin  cls;   read(a,b,i);   if a< 0 then write(sqr(a));

  if b< 0 then write(sqr(b));

  if i< 0 then write(sqr(i))end.

крестьянин   должен   переправить   волка   и   капусту с   собой.а   козу   надо   кинуть

  на   другой   берег.      

за два можно. ложим по 3 монеты. если ровно - то фальшивая среди двух оставшихся, которую легко найти. если неровно - то берём 2 монеты из лёгкой чашки и взвешиваем. если ровно - то оставшаяся и есть фальшивая, если неровно - то фальшивая наверху.

  writeln(x) вот этой! потому что если взять  в ковычки выведет х