Вычислите частичную сумму ряда s=1+1/2+1/4+1/8+ вычисления прекратите,когда модуль очередного слагаемого станет меньше 0,001

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var (s,d):=(1.0,1.0);
  repeat
    d/=2.0; s+=d
  until d<0.001;
  Writeln(s:0:4)
end.

Результат
1.9990