Определить, имеет ли функция Y = SIN (X) корень на отрезке X,X+1 — Pascal(Паскаль)

program PascalGuru;

var
  x, y1, y2: real; { инициализация переменных }

begin
  write('x= ');
  readln(x); { ввод "X" }

  y1 := sin(x); { вычисляем sin(x) }
  y2 := sin(x + 1); { вычисляем sin(x+1) }

  { ниже проводим проверку - ее значения на его границах имеют разные знаки!? }

  if (y1 > 0) and (y2 < 0) then
    writeln('funktsiya imeet koreni!');
  if (y1 < 0) and (y2 > 0) then
    writeln('funktsiya imeet koreni!');

  if (y1 < 0) and (y2 < 0) then
    writeln('funktsiya NE imeet kornya!');
  if (y1 > 0) and (y2 > 0) then
    writeln('funktsiya NE imeet kornya!');

  readln;

end.