Линейный алгоритм на языке паскаль