[ALGORITMO] Dato un numero, fra quali potenze di 2 si trova?

[netarrow]

infatti era un problema di informatica generico, poi visto che a scuola mi fanno pascal l'ho tradotto in quello, se a qualcuno servisse il codice lo posto:

program pot2;
uses crt;

var
x, potPrec:real;

begin
  writeln('inserire un numero maggiore di 1');
  readln(x);
  if x > 1 then
    begin
    potPrec := exp(LN(2) * (round(LN(x)/LN(2))-1));
    writeln(x:0:0, ' si trova fra ', potPrec:0:0, ' e ', potPrec*2:0:0);
    readln;
    end
 else
    begin
    writeln('Il programma non lavora');
    end
end.