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

Program n1;
const n=20;
var a: array[1..n] of integer;
i,kn,ko,kp: integer;
function max(a,b,c: integer): string;
begin
max:=' ';
if (a>b) and (a>c) then max:='0 больше'
else if (b>c) and (b>a) then max:='отрицательных больше'
else if (c>a) and (c>b) then max:='положительных больше'
else if (a=c) and (c=b) then max:='количество всех элементов одинаковое'
else if a=b then max:='0 и отрицательных поровну'
else if b=c then max:='положительных и отрицательных поровну'
else if a=c then max:='0 и положительных поровну'
else max:='ошибка';
end;
begin
randomize;
write('исходный массив: ');
kn:=0;
kp:=0;
ko:=0;
for i:=1 to n do
begin
a[i]:=random(3)-1;
write(a[i],' ');
if a[i]>0 then kp:=kp+1
else if a[i]<0 then ko:=ko+1
else kn:=kn+1;
end;
writeln;
write(max(kn,ko,kp));
end.

Человек. Тут все просто. :)

Объяснение:

"А" меньше 0?

ответ: нет, она больше 0. (Т.е.: А=8)

Значит ты идешь вниз по стрелочке "нет".

Дальше формула:

В=А-В

Значит: В=8-2=6

ответ: В=6

Тоже самое делаем с буквой "А":

А=А-2

Значит: А=8-2=6

ответ: А=6

ответ: А=6; В=6

Теперь мы это все повторяем в том же духе, только до того момента пока значение буквы "А" не станет меньше "0".

Значит повторяем:

"А" меньше 0?

ответ: нет, она больше 0. (Т.е.: А=6)

Значит ты идешь вниз по стрелочке "нет".

Дальше формула:

В=А-В

Значит: В=6-6=0

ответ: В=0

Тоже самое делаем с буквой "А":

А=А-2

Значит: А=6-2=4

ответ: А=4

ответ: А=4; В=0

"А" меньше 0?

ответ: нет, она больше 0. (Т.е.: А=4)

Значит ты идешь вниз по стрелочке "нет".

Дальше формула:

В=А-В

Значит: В=4-0=4

ответ: В=4

Тоже самое делаем с буквой "А":

А=А-2

Значит: А=4-2=2

ответ: А=2

ответ: А=2; В=4

"А" меньше 0?

ответ: нет, она больше 0. (Т.е.: А=2)

Значит ты идешь вниз по стрелочке "нет".

Дальше формула:

В=А-В

Значит: В=2-0=2

ответ: В=2

Тоже самое делаем с буквой "А":

А=А-2

Значит: А=2-2=0

ответ: А=0

ответ: А=0; В=2

"А" меньше 0?

ответ: нет, она на равне с 0. (Т.е.: А=0)

Значит ты идешь вниз по стрелочке "нет".

Дальше формула:

В=А-В

Значит: В=0-0=0

ответ: В=0

Тоже самое делаем с буквой "А":

А=А-2

Значит: А=0-2=-2

ответ: А=-2

ответ: А=-2; В=0Значит мы условия выполнили! "А" меньше 0.Удачи!