Какой максимальное целое десятичное число можно записать в трех разрядах двоичной системы счисления?

я не уверена , но думаю что, 7

7т.к максимально это 2в 3степени-

unit unit1;

interface

uses

  system.sysutils, system.types, system.uitypes, system.classes, system.variants,

  fmx.types, fmx.controls, fmx.forms, fmx.graphics, fmx.dialogs, fmx.edit,

  fmx.controls.presentation, fmx.stdctrls;

type

  tform1 = class(tform)

    button1: tbutton;

    edit1: tedit;

    procedure button1click(sender: tobject);

  private

    { private declarations }

  public

    { public declarations }

  end;

var

  form1: tform1;

  x, s: integer;

implementation

{$r *.fmx}

procedure tform1.button1click(sender: tobject);

begin

  x: =strtoint(edit1.text);

  s: =(x+2)/5;

  showmessage(inttostr(s)+'ответ');

end;

end.

var j,i,buf: integer;

    mass: array[1..4] of integer;

begin

  for i: =1 to 4 do

  begin

    mass[i]: =random(100);

    write(mass[i],' ');

  end;

  for i: =1 to 4-1 do

    for j: =1 to 4-i do

      if (mass[j] > mass[j+1]) then

          begin

            buf : = mass[j];

            mass[j] : = mass[j+1];

            mass[j+1] : = buf;

          end;

  writeln;

  for i: =1 to 4 do

  begin

    write(mass[i],' ');

  end;

  writeln;

  write('наиболший элемент=',mass[4]);

end.