[Aristarh Dark]

На самом деле не все, процедуру получения входных данных надо, процедуру вывода результата, и, скорее всего, я не помню уже, PosEx реализовать, все остальное, в принципе, останется как есть (ну за незначительными изменениями)