Паскаль: Решение задач на функции