X
for
=B4-B5
СУММ
Таблица расчета платы за расход электроэнергии
Стоимость 1 кВт
5,00р
Скидка 20% при потреблении > 100 кВт
Расход кВт
сумма к оплате
сумма к оплате с учетом скидки
=B4-B5
90
120
90
Х
3 месяц
4 Январь
5 Февраль
6 Март
7 Апрель
8 Май
9 Июнь
10 Июль
11 Август
83
92
76
110
117
132
135
12 Сентябрь
13 Октябрь
14 Ноябрь
15 Декабрь
128​

//PascalABC.Net 3.1.0.1200
uses System;
var
    title: array[2..5]of string := ('Неудовлетворительно', 'Удовлетворительно', 'Хорошо', 'Отлично');

begin
    writeln('Введите оценки');
    var marks := new Dictionary<integer, integer>();
    
    repeat
        var n := ReadInteger();
        if (n > 5) or (n < 2) then continue;
        
        if marks.ContainsKey(n) then
            marks[n] += 1
        else marks.Add(n, 1);
    until marks.Values.Sum >= 10;
    
    for var i := 2 to 5 do
        writeln(title[i], ': ', marks[i]);
end.

Лишь один человек в семье имеет брата - это СЕСТРА МУЖА. Поэтому она ИНЖЕНЕР.
ЖЕНА - не СЛЕСАРЬ и не ЭКОНОМИСТ (вряд ли женщина увлекается футболом) => она УЧИТЕЛЬ или ЮРИСТ. УЧИТЕЛЕМ она быть не может, так как в этом случае она была бы одновременно и старше, и моложе, чем ИНЖЕНЕР. Следовательно, ЖЕНА - ЮРИСТ, а УЧИТЕЛЬ - тот, кто не является ей кровным родственником, то есть ее МУЖ.
Оставшиеся родственники (СЛЕСАРЬ и ЭКОНОМИСТ по профессии) - это родные дед и внук. Так как СЛЕСАРЬ младше, то СЛЕСАРЬ - это СЫН, а ЭКОНОМИСТ - его дед, то есть ОТЕЦ ЖЕНЫ.

СЕСТРА МУЖА - ИНЖЕНЕР
ЖЕНА - ЮРИСТ
МУЖ - УЧИТЕЛЬ
СЫН - СЛЕСАРЬ
ОТЕЦ ЖЕНЫ - ЭКОНОМИСТ