Определить информационный объем сообщения "я помню чудное мгновение! "

Я помню чудное мгновение! - 25 символов, причем пробелы и пунктуация считается
Дано:
N=256, где N - мощность алфавита (используется стандартные 256 символов)
K=25, где K - количество символов сообщения
Найти - I (обозначение информационного объема)

Решение:
Найдем сначала количество битов одного символа (i): , выражаем i и получаем 8 битов (или байт), т.к. 
Затем найдем I: I=Ki, умножаем и получаем 25 байт.
ответ: 25 байт

Исходя из самого вопроса - тут не важно само выражение функции.

1. 7   { -6, -4, -2, 0, 2, 4, 6 }
Var k,n : Real;
Begin
  n:=0;
  k:=-6;
  While k<=6 do
  Begin
    k:=k+2;
    n:=n+1;
  end;
  Writeln('n = ',n);
end.

2. 7   { -2, -1.5, -1, -0.5, 0, 0.5, 1 }
Var k,n : Real;
Begin
  n:=0;
  k:=-2;
  While k<=1 do
  Begin
    k:=k+0.5;
    n:=n+1;
  end;
  Writeln('n = ',n);
end.

3. 3   { -3, -1, 1 }
Var k,n : Real;
Begin
  n:=0;
  k:=-3;
  While k<=2 do
  Begin
    k:=k+2;
    n:=n+1;
  end;
  Writeln('n = ',n);
end.

4. 7 { -1, -0.5, 0, 0.5, 1, 1.5, 2 }
Var k,n : Real;
Begin
  n:=0;
  k:=-1;
  While k<=2 do
  Begin
    k:=k+0.5;
    n:=n+1;
  end;
  Writeln('n = ',n);
end.

// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var t:=ReadlnString(':').MatchValue('\(.*\)');
  Writeln(t[2:t.Length])
end.

Пример
: Напечатаем только то (что в скобках) и не более!
что в скобках

Пояснения.
1) Принимаем с клавиатуры текстовую строку, выделяем в ней пару круглых скобок вместе с содержимым и помещаем полученную подстроку в t. В соответствии с условием считаем без проверки, что такая пара скобок есть всегда.
2) Выделяем из содержимого t символы со второго по предпоследний (т.е. скобки не включаем) и выводим результат на экран.