Вычислить значение сложной функции при заданном значении аргумента

var i:integer;k,x:real;
begin
writeln('x=');
readln(x);
i:=0;
while x>=k do
begin
k:=exp(i*ln(2));
i:=i+1;
end;
if i mod 2=0 then writeln('y=1')
else writeln('y:=-1');
end.

var x,y:real;
x0,x1:integer;
begin
write('x=');
readln(x);
y:=(sqrt(1+8*x)-1)/2;
x0:=trunc(y) mod 2;
x1:=(trunc(y)+1) mod 2;
if ((x0=0) and (x1=1))
then begin
y:=1;
end
else begin
y:=-1;
end;
writeln('y=',y);
end.

program console;
{$mode Objfpc} {$H+}
 
uses
 Crt, FileUtil;
 
var k,k1,x,r:real;
  i:integer;
begin
write('x=');
readln(x);
i:=0;
 
while true do
begin
 
k:=exp(i*ln(2));
inc(i);
 
if x<k then begin
if i mod 2=0 then writeln('y=-1')
else writeln('y:=1');
k1:=k;
 
break;
end;
end;
 
readkey();
end.

program console;
{$mode Objfpc} {$H+}
 
uses
 Crt, FileUtil, Math;
 
var x:real;
  i:integer;
begin
 
write('x=');
readln(x);
i:=trunc(log2(x+1));
if i mod 2=0 then writeln('y=1')
else writeln('y:=-1');
 
readkey();
end.

program asd;
uses crt;
var x,y:real;
    st,n:integer;
begin
 clrscr;
 write('x: ');
 readln(x);
 st:=1;
 n:=0;
 while (x>st-1) do
 begin
      n:=n+1;
      st:=st*2;
 end;
 n:=n-1;
 if (n mod 2 =0)
 then
     y:=1.0
 else
     y:=-1.0;
 writeln('result: ',y);
end.