Паскаль пример задачи