pascal. Не могу решить задачи

Обе задачи нужно реализовать в рамках одной программы, для решения каждой из задач, обязательно использовать функции.
1) найти наименьшую четную цифру. если ее нет возвратить на 0

2) Определить, имеется ли в числе заданная цифра

Заранее огромное спасибо!