алг
нач
закрасить
нц пока НЕ внизу свободно
двигаться вправо
закрасить
кц
нц пока внизу свободно
двигаться вниз
закрасить
кц
нц пока НЕ справа свободно
двигаться вверх
кц
двигаться вправо
нц пока НЕ внизу свободно
двигаться вправо
закрасить
кц
нц пока внизу свободно
двигаться вниз
закрасить
кц
нц пока НЕ справа свободно
двигаться вверх
кц
двигаться вправо
нц пока НЕ внизу свободно
двигаться вправо
закрасить
кц
нц пока НЕ внизу свободно
двигаться вправо
закрасить
кц
нц пока внизу свободно
двигаться вниз
закрасить
кц
нц пока НЕ справа свободно
двигаться вверх
кц
двигаться вправо
нц пока НЕ внизу свободно
двигаться вправо
закрасить
кц
кон
на алгоритмическом языке я как понял надо
Ответ:
Если хотя бы один город называется чётным числом, то он соединён со всеми остальными городами
program a;
var
mas: 1..30,
ii: integer;
begin
for ii := 1 to 30
mas[ ii ] := 40 + random( 61 );
end.