1110101, извини, решение не дам, я очень плохо эту тему помню, когда ещё в школе учился учили. Это ответ с онлайн калькулятора
Var
n, sum: integer;
begin
read(n);
while n > 0 do
begin
if n mod 10 < 7 then
sum := sum + n mod 10;
n := n div 10
end;
writeln(sum);
end.
Рисунок 1- 7 путей
рисунок 2- 9 путей
рисунок 3- 6 км
рисунок 4- 6 км