надо реализовать алгоритм Джонсона на паскале