В ответе будет 173, если нужно объяснение пишите в комментарии
===== PascalABC.NET =====
begin
ReadInteger.ToString.Select(c -> c.ToDigit ** 3).Sum.Println
end.
1 картинка: источник - молодой человек, приемник: девушка
2 картинка: источник - учитель, приемник - дети
3 картинка: источник - книги, приемник - читатель
4 картинка: источник - приемник: девушка, та что ниже и второй источник-приемник - девушка, та что выше