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

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

// PascalABC.NET 3.2, сборка 1387 от 17.02.2017// Внимание! Если программа не работает, обновите версию!begin  var x:=ReadReal('x=');  if sin(x)*sin(x+1)<=0 then Writeln('Корень есть')  else Writeln('Корня нет')end.