PascalABC для начинающих. Линейный алгоритм