Program lab2;
Var a,b,c,x,y:real;
Fy:double
begin
writeln('Введите x');
readln(x);
if (x=0) or (sin(x)=-1) or (sqr (Ln)>0) then
begin
writeln ('Решений нет');
else
a:=(sqr*(cos(x)));
b:=(1+sin(x));
c:=(sqr(ln))*(x/exp(1/3*ln(x-1))));
y:=(a/b)-c;
if y>0 then Fy:=1'
if y=0 then Fy:=0;
if y<0 then Fy:=-1;
writeln (Fy);
end;
end.