Алгоритм паскаль задачи