взяти пак пак2
взяти пак пак2 [ПАК2, х]

якщо пак2 не є Модуль
  впасти
кінець
якщо пак2.ПАК2 != "ПАК2"
  впасти
кінець
якщо пак2.ПАК2 != ПАК2
  впасти
кінець
якщо пак2.х не є Модуль
  впасти
кінець
якщо пак2.х != х
  впасти
кінець

ПАК1 = "ПАК1"

дати ПАК1