Как сделать чтобы пользователь вводил 10^-2, 10^-3 а не 0.001. При вводе 10^-2 то сразу ошибка а когда 0.01 то все ок

Вот собственно код

program Epsilon;
var
  e: real; {Переменная для хранения значения точности}
  k: integer; { Переменная для хранения значения аргумента}
  s: real;   { Переменная для хранения значения члена ряда}
  sum: real;   { Переменная для хранения значения суммы}

begin
  write('Введите значение точности вычислений: ');
  Readln(e);
  sum:= 0; {Начальные установки переменных}
  k:= 1;
  s:= 1/2;   
  while e < s do
    begin
      sum:= sum + s; {Вычисление суммы}
      inc(k);             {Приращение аргумента}
      s:= 1/exp(k*ln(2)); {Вычисление значения члена ряда}
    end;
  writeln('Сумма: ', sum:0:4);
  readln;
end.