Берём вес города А за 1. В город Б дорога идёт только из А значит он весит тоже 1. В город В идёт дорога из Б и Д ( Д весит 1 така как в него дорога только из А) значит 1+1 значит город в весит 2. Ну и так по порядку , потом в конце складывает вес городов из которых есть дорога в Л, это и будет ответ. ( Ну можно и просто посчитать , но это сложно и можно ошибиться) Ответ 14
If (a>=10) and (a<=99) then begin
writeln(a,' двузначное число'); writeln(' его квадрат=',sqr(a)); end
else writeln(а, ' не является двузначным');
Все, что добавил или изменил-отметил жирным
Var
sum, a, b: integer;
begin
sum:=0;
readln(a);
readln(b);
sum:=a+b;
if (sum mod 5 = 0) then sum:=sum+1 else sum:=sum-2;
writeln(sum);
end.