Паскаль решение функции