Var s,k: integer; begin s: =0; for k : =1 to 10 do s: =s+7; writel(s); end.

Объяснение:

Запишем условие кратко:

(1) Маша = Егор + бутерброд с сыром

(2) Саша = Аня + шоколадное печенье

(3) Мила = Кирилл + луковые чипсы

(4) Егор + бутерброд с котлетой = Аня + картофельные чипсы

(5) Саша + молочный коктейль = Мила + лимонад

Подставляем (2) в (5): Аня + шоколадное печенье + молочный коктейль = Мила + лимонад = ...

В получившееся добавляем (3): ... = Кирилл + лимонад + луковые чипсы

В обе части прибавляем картофельные чипсы и бутерброд с сыром:

Аня + картофельные чипсы + бутерброд с сыром + шоколадное печенье + молочный коктейль = Кирилл + бутерброд с сыром + лимонад + луковые чипсы + картофельные чипсы

Пользуемся (4)...

Егор + бутерброд с сыром + бутерброд с котлетой + шоколадное печенье + молочный коктейль = Кирилл + бутерброд с сыром + лимонад + луковые чипсы + картофельные чипсы

... и (1):

Маша + бутерброд с котлетой + шоколадное печенье + молочный коктейль = Кирилл + бутерброд с сыром + лимонад + луковые чипсы + картофельные чипсы

Дальше я буду все покупки сокращать до первых букв.

Если считать, что кроме описанного в условии ничего куплено не было, то

1) Маша купила БС, Л, ЛЧ, КЧ и

2) Кирилл БК, ШП, МК.

Пользуемся (1):

3) Егор купил Л, ЛЧ, КЧ.

Используем (4):

4) Аня купила Л, ЛЧ, БК.

Из (3) узнаём предпочтения Милы:

5) Мила купила БК, ЛЧ, ШП, МК.

Наконец, из (5)

6) Саша купил БК, ЛЧ, ШП, Л.

Ну тут обычная программка с циклом, можно просто в лоб посмотреть, чтобы легче понять.
Нам дано, что s = 0, k = 1
Дальше цикл, пока s не станет больше или равен 66, он будет работать
А цикл делает следующее
Каждый раз прибавляет 3 к k и прибавляет это число k к s, чтобы получить заветные 66, а теперь рассмотрим в лоб, какие числа крутятся в программе:
Начало: 1,0 - 4,4 - 7,11 - 10, 21 - 13, 34 - 16, 50 - 19 - 69. Стоп цикла, так как число S стало больше 66 (69)
Дальше программа выводит на экран число k(19)
ответ: 19.