START
	n
	s student= 5 
	s office= 10 
	s buf=$na(^CacheTemp($j,"START^tmp"))
	k @buf
	s rnd=$na(@buf@("Rnd"))
	s ofc=$na(@buf@("Office"))
	d INIT
	d SETOFFICE
	d LISTOFFICE
	s event=$na(@buf@("Event"))
	for i= 1 : 1 :student {
		d STUDENT
	}
	d MAXEVENT
	q
MAXEVENT ; Поиск максимального пути
	n i,max,st
	s max= 0 
	for i= 1 : 1 :student {
		s:@event@(i)>max max=@event@(i),st=i
	}
	w !
	w !,"Max event=",max
	w !,"Student=",st
	q
STUDENT ; События со студентом
	n of,j,dlm
	w !,"Student ",i,!
	s dlm=""
	s of=($r(office)\ 1 )+ 1 
GO ; метка повтора итерации
	if $d(@event@(i, 0 ,of)) {
		d RESULT
		q
	}
	s j=$i(@event@(i))
	s @event@(i, 0 ,of)=j
	s @event@(i, 1 ,j)=of
	w dlm,of
	s dlm=", "
	s of=@ofc@(of)
	g GO
	q
RESULT ; Подведение итогов по студенту
	w !
	if @event@(i)=office {
		w "Ok"
	} else {
		w "Break"
	}
	q
LISTOFFICE ; Вывод распределения кабинетов
	n i
	w !,"Office"
	for i= 1 : 1 :office {
		w !,i,"=",@ofc@(i)
	}
	q
SETOFFICE ; Распределить ссылки по кабинетам
	n i,max
	s max=office
	for i= 1 : 1 :office {
		d OFFICE
	}
	q
OFFICE ; Очередной кабинет
	n j,val
	s j=($r(max)\ 1 )+ 1 
	s @ofc@(i)=@rnd@(j)
	s @rnd@(j)=@rnd@(max)	
	s @rnd@(max)=@ofc@(i)
	s max=max- 1 
	q
INIT ; Подготовка переменных
	n i
	for i= 1 : 1 :office {
		s @rnd@(i)=i
	}
	q	

ERR>d ^tmp
 
Office
 1 = 5 
 2 = 8 
 3 = 10 
 4 = 6 
 5 = 7 
 6 = 2 
 7 = 4 
 8 = 1 
 9 = 3 
 10 = 9 
Student  1 
 4 ,  6 ,  2 ,  8 ,  1 ,  5 ,  7 
Break
Student  2 
 3 ,  10 ,  9 
Break
Student  3 
 3 ,  10 ,  9 
Break
Student  4 
 5 ,  7 ,  4 ,  6 ,  2 ,  8 ,  1 
Break
Student  5 
 7 ,  4 ,  6 ,  2 ,  8 ,  1 ,  5 
Break
 
Max event= 7 
Student= 1 

ERR>d ^tmp
 
Office
 1 = 10 
 2 = 8 
 3 = 5 
 4 = 2 
 5 = 9 
 6 = 3 
 7 = 1 
 8 = 7 
 9 = 4 
 10 = 6 
Student  1 
 4 ,  2 ,  8 ,  7 ,  1 ,  10 ,  6 ,  3 ,  5 ,  9 
Ok
Student  2 
 9 ,  4 ,  2 ,  8 ,  7 ,  1 ,  10 ,  6 ,  3 ,  5 
Ok
Student  3 
 10 ,  6 ,  3 ,  5 ,  9 ,  4 ,  2 ,  8 ,  7 ,  1 
Ok
Student  4 
 9 ,  4 ,  2 ,  8 ,  7 ,  1 ,  10 ,  6 ,  3 ,  5 
Ok
Student  5 
 2 ,  8 ,  7 ,  1 ,  10 ,  6 ,  3 ,  5 ,  9 ,  4 
Ok
 
Max event= 10 
Student= 1