Program SequenceNumber;
Varn, count : integer;number : longint;Begincount := 1;number := 1;
Write('Enter the number: ');Readln(n);
While number < n dobeginnumber := number * 2;count := count + 1;end;
Write('The number ', n, ' is the ', count, 'th number in the sequence.');
End.
Program SequenceNumber;
Var
n, count : integer;
number : longint;
Begin
count := 1;
number := 1;
Write('Enter the number: ');
Readln(n);
While number < n do
begin
number := number * 2;
count := count + 1;
end;
Write('The number ', n, ' is the ', count, 'th number in the sequence.');
End.