Как написать код на паскале?

Question

[timur_mur_murr]

type town = (a,b,c,d,e,f,g,h);
towns = set of town;
path = array [town] of towns;
Описать процедуру travel(P,H,K), которая по рейсам P (P[x] – множество городов, в которые можно за один рейс доехать автобусом из города x) определяет K – множество городов, в которые можно попасть автобусом (за один рейс или через другие города) из города H.

Comments

[pfg21]

закопай стюардессу

[Saboteur]

Нарисовать алгоритм на бумажке стрелочками, потом подучить паскаль и переписать на паскале.

[Everything_is_not_so_bad]

Задача то хорошая, только автор хочет получить все готовое.