Паскаль рисунок код