Program7 algo