Pascal Степени

[Vkusnjashka]

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

[RUSt88]

сделаю за небольшое вознаграждение, для связи пишем на RUStx88@mail.ru или аська 355-988-683

[Paladast]

Вот код программы возведение числа X в степень N. Поменять пару строк думаю не составит проблем

var x,a,b:real;
    y,i:integer;
begin
A:=2;
read(x,y);
b:=x;
Repeat
a:=a+1;
Begin
x:=x*b;
End;
Until a>y;
WriteLn(x);
end.

[_Dmitry]

X:=trunc(ln(N)/ln(2));

[Vkusnjashka]

Спасибо!!!