LT2 PASCAL

var n:real;
begin
    assign(input,'lt2.inp');reset(input);
    assign(output,'lt2.out');rewrite(output);
    read(n);
    while n>1 do 
        n:=n/2;
    if n<1 then 
        writeln('false')
    else 
        writeln('true');
end.