program oken;
uses crt;
var x,y: real;
dem: longint;
begin
clrscr;
write('Nhap x: '); readln(x);
write('Nhap y: '); readln(y);
dem:=0; y:=y*1000;
while x<=y do
begin
dem:=dem+1;
x:=x*2;
end;
writeln('So lan phai gap: ',dem);
writeln('Ket qua: ',x:0:3);
readln;
end.