Простейшее же задание... как Вы дальше учиться собираетесь, если даже такое не делаете сами?
Ответ:
Если хотя бы один город называется чётным числом, то он соединён со всеми остальными городами
Ну человек обрабатывает информацию которую ему выдаёт компьютер и наоборот
===== PascalABC.NET
begin
var s := 0.0;
for var i := 1 to ReadInteger('n =') do
s += 1 / Sqrt(i);
Println(s)
end.