Определите количество пронумерованных кубиков находящихся в коробке. известно, что информационное сообщение о номере одного кубика несет 3 бита информации.

3 бита - следовательно нужно двойку возвести в третью степень. Два в кубе равно 8 - столько и кубиков.

А шибко умные могут написать формулу Хартли и получить из нее тот же результат.

1. "Школьное" решение
// PascalABC.Net 3.0, сборка 1064
var
  i,n1,n2:integer;
  s:longint;
begin
  Write('Введите интервал для вычисления суммы: '); Read(n1,n2);
  s:=0;
  if n1 mod 2 = 0 then i:=n1 else i:=n1+1;
  while i<=n2 do begin s:=s+i; i:=i+2 end;
  Writeln('Сумма четных чисел в интервале равна ',s)
end.

Тестовое решение:
Введите интервал для вычисления суммы: 7 14
Сумма четных чисел в интервале равна 44

2. Современное решение
// PascalABC.Net 3.0, сборка 1064
var
  n1,n2:integer;
begin
  Write('Введите интервал для вычисления суммы: '); Read(n1,n2);
  if Odd(n1) then Inc(n1);
  Writeln('Сумма четных чисел в интервале равна ',Range(n1,n2,2).Sum);
end.

program raf105;

var v:array[1..6] of real;

i,j,kolvo,n:integer;

abc:real;

begin

writeln('Введите 6 значений по очереди: ');

for i:=1 to 6 do

read(v[i]);6

for j:=1 to 6 do

begin

 for i:=1 to 6 do

   begin

     if (v[j]-v[i]) > 0

     then kolvo:=kolvo+1;

   end;

  if kolvo=5

  then n:=j

  else kolvo:=0;

end;

writeln();

writeln('Ввод:');

for i:=1 to 6 do

write(' ',v[i]);

abc:= v[n];

v[n]:= v[1];

v[1]:= abc;

writeln();

writeln('Вывод:');

for i:=1 to 6 do

write(' ',v[i]);

end.

Написано на языке PascalABC.NET