program Adding_numbers;

{$APPTYPE CONSOLE}

uses
    SysUtils;
var
    var1 : integer;

begin
    var1:= 1
    Repeat
        Writeln(var1);
        Inc(var1, var1);
    until var1 > 100;
end;