Задача по паскалю. Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, которые являются степенью двойки

Question

uses crt; 
 var b,a,i: integer; x,y: real; 
 begin 
 writeln(' a'); 
 readln(a); 
 writeln(' b'); 
 readln(b); 
 for i:=a to b do 
 begin 
 x:= ln(i) / ln(2); 
 y:= frac(x); 
 if y=0 then 
 writeln(x,y); 
 end 
 end. 
 
выводит 10, 20 и тд, в чем ошибка?

Баркова · Accepted Answer

вар 
 а, б, и: Интегер; 
 х, у: Реал; 
бегин 
а := 7; 
б := 1902; 
фор и := а то б до бегин 
 х := лн (и) / лн (2); 
 у := Фрак (х) ; 
 иф (у = 0.0) зэн {получаем дробную часть логарифма числа "и" по основанию 2; у степеней двойки дробная часть логарифма будет равна 0} 
 бегин 
 { вывести число на экран } 
 енд; 
енд;