Напишите программу, которая вводит натуральное число N и выводит на экран чётные положительные степени числа 2, не большие,

program power_2;

var n,m: integer;

begin

writeln(\'Enter n\');

readln(n);

//находим показатель степени m,

//при котором 2^m = n, как логарифм числа n c основанием 2.

//Прямое вычисление логарифма невозможно,

//поэтому применяется формула (ln(n)/ln(2)).

//Чтобы исключить дробные степени

//полученный результат округляем в сторону уменьшения

m:=trunc(ln(n)/ln(2));

writeln(\'Показатель   Степень\');

writeln(\'степени      числа 2\');

for i:integer:=m downto 1 do

 writeln(i:3,power(2,i):16)

end.