7. Знайдіть орієнтовну довжину двійкового коду завдань практичної роботи. Подайте отримане значення в різних одиницях вимірювання до

Procedure TForm1.Button1Click(Sender: TObject);
var
  i1,i2,i3 : Integer;
  kk : Integer;
  Chislo : Integer;
begin
  Memo1.Clear;
  kk := 0;
  for i1 := 1 to 9 do
    for i2 := 0 to 9 do
      for i3 := 0 to 9 do
        if ( (i1<>i2) and (i1<>i3) and (i2<>i3) ) then
          if ( Frac((i1+i2+i3)/7)=0 ) then
          begin
            Chislo := i1*100 + i2*10 + i3;
            if ( Frac(Chislo/7)=0 ) then
            begin
               Memo1.Lines.Append(inttostr(Chislo));
               inc(kk);
            end;
          end;
end;

Задача 1.
const
  n = 10;

var
  a: array[1..n] of integer;
  i, s: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  for i := 1 to n do
  begin
    a[i] := Random(21) - 10;
    Write(a[i]:4);
  end;
  Writeln;
  s := a[n];
  for i := n - 1 downto 1 do a[i + 1] := a[i];
  a[1] := s;
  Writeln('После циклического сдвига вправо на 1');
  for i := 1 to n do Write(a[i]:4);
  Writeln
end.

Тестовое решение:
Элементы массива
  -2  -1   7  10   2  -7   9  -6  -5 -10
После циклического сдвига вправо на 1
 -10  -2  -1   7  10   2  -7   9  -6  -5

Задача 2.
const
  n = 10;
var
  a: array[1..n] of integer;
  i, j, t: integer;
 
begin
  Randomize;
  Writeln('Исходный массив');
  for i := 1 to n do
  begin
    a[i] := random(101);
    Write(a[i]:4)
  end;
  Writeln;
  for i := 1 to n-1 do
    for j := 1 to n-i do
      if a[j] > a[j+1] then
      begin t := a[j]; a[j] := a[j+1]; a[j+1] := t end;
  Writeln('Отсортированный по возрастанию массив');
  for i := 1 to n do Write(a[i]:4);
  Writeln
end.

Тестовое решение:
Исходный массив
  31  60  14  17  46   6  46  97  60  88
Отсортированный по возрастанию массив
   6  14  17  31  46  46  60  60  88  97