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.