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.