Друзья в соседних домах договорились передавать друг другу сообщения в виде световых сигналов. сколько лампочек им понадобится для кодирования 10 различных слов?

По одной лампочке каждому, каждая лампочка может быть в двух состояниях - вкл/выкл (0 или 1)

Sub SetColor()
For Each C In Range(Range("A1").Value)
        If C.Value = Range("E1") Then
            With C.Font
                .Bold = Range("D1").Font.Bold
                .Color = Range("D1").Font.Color
                .Italic = Range("D1").Font.Italic
                .Underline = Range("D1").Font.Underline
            End With
            C.Interior.Color = Range("D1").Interior.Color
        Else
            With C.Font
                .Bold = False
                .Italic = False
                .Underline = xlUnderlineStyleNone
                .ColorIndex = xlAutomatic
            End With
            C.Interior.Color = vbWhite
        End If
    Next C
End Sub

если в ячейках, указанных в А1, значения те же, что и в Е1, то эти ячейки меняют свое оформление на то же, что и ячейка D1, если там другое значение - ставится стандартное оформление

Площадь кольца вычисляется по формуле :

Тут
R - внешний радиус кольца
r - внутренний радиус
Кстати в самом Турбо паскале обзначения R и r не прокатят, он не видит разницы между большими и малыми буквами, т.о. будет воспринимать их как однк переменную.
Далее сумма площадей N колец, это нечто эдакое:


Чтобы устроить подобный счет в паскале придется организовать цикл.
Таким образом общий алгоритм программы проглядывает в таком порядке
1. Объявить все переменные (Данные) это само собой.
2. Присвоить переменным начальные значения (инициализировать) те, что есть по условию (или просто 0, чтоб потом легче отлаживать)
3.Запросить у пользователя недостающие данные, например N может запрашиваться у пользователя.
4. Организация цикла расчета
5. Вывод результатов.

Теперь разберемся с пунктом 4
Для организации цикла как мне представляется надо будет задействовать 2 такие переменные i,  Ssum, Si, Rin, Rout,. Где
i - переменная-счетчик, что изменяется от 1 до N, для организации цикла. (Integer целая)
Ssum - переменная, в которой будет накапливаться суммарная площадь. (Не помню как паскаль поступает с вновь объявленными переменными, но в начале программы лучше присвоить ей нулевое значение, чтобы там не оказалось случайного мусора)
Si - переменная в которой хранится текущая вычисленная площадь.
Rin - текущий внутренний радиус.
Rout - текущий внешний радиус.
Переменные: Ssum, Si, Rin, Rout типа (Real вещественный )
Ну и считаем в следующем порядке
 Перед началом цикла
 Ssum:=0 (о чем уже говорилось)
далее цикл
FOR I:=1 to N
Вычислить текущие значения внешнего и внутреннего радиусов

(У нас внутренний радиус не меняется, но более общем случае тут мог, быть расчет)
Вычисляем площадь текущего (по счетчику) кольца:

Накапливаем в Ssum суммарную площадь

 Далее цикл FOR выполняет такие действия:
 увеличивает на 1 переменную счетчик I
I:=I+1
 Сравнивает ее с N, если уходим на "следующий виток" цикла, в противном случае выходим из него.
Кстати так можно было организовать цикл типа (Repeat, Until) тогда приращение счетчика надо организовать самому. For делает это сам, если не ошибаюсь.