Составьте пожалуйста программу на Паскаль

Определить, имеет ли функция Y = SIN ( X ) корень на отрезке X, X+1. Подсказка:
если функция имеет корень на данном интервале, то её значения на его границах
имеют разные знаки