Задача со степенью Pascal

[Vkusnjashka]

Помогите пожалуйста три дня сижу над этой задачей...
Написать программу которая для введённого числа N найдёт ближайшую степень X двойки, которая меньше N. Если 2^X=N вывести соответствующее сообщение.

[Greblin]

Держите. Обработку N < 1 сами напишите

program pr1;

var N, X, st: integer;

begin
  readln(N);
  X := 0;
  st := 1;
  while st < N do begin
    st := st * 2;
    X := X + 1;
  end;
  if (st = N) then writeln('2^',X,'=',N)
  else writeln('2^',X-1,'<',N);
end.