Задача на вложенные циклы - Pascal ABC (250711)

Формулировка задачи:

Помогите сделать ! У Андрея и Бори было 11 орехов. У Андрея и Вовы – 12 орехов. У Во-вы и Бори – 13 орехов. Сколько всего было орехов у мальчиков? Я знаю решение арифметическое, но не могу никак его под вложенные циклы подстроить(

Решение задачи: «Задача на вложенные циклы»

Листинг программы

var a,b,v,s:integer;
begin
for a:=0 to 11 do
for b:=0 to 11-a do
for v:=0 to 13-b do
if(a+b=11)and(a+v=12)and(v+b=13)then
 begin
  s:=a+b+v;
  writeln('a=',a,' b=',b,' v=',v,' s=',s)
 end;
end.

Объяснение кода листинга программы

Объявлены четыре переменные: a, b, v, s типа integer.
Задаются три вложенных цикла:
- Первый цикл для переменной a от 0 до 11.
- Второй цикл для переменной b от 0 до 11-a.
- Третий цикл для переменной v от 0 до 13-b.
В блоке if проверяется условие (a+b=11)and(a+v=12)and(v+b=13).
Если условие выполняется, то выполняется блок begin, в котором:
- Переменной s присваивается сумма a, b и v.
- Выводится сообщение с значениями переменных a, b, v и s.
Код завершается в конце блока end.