Используя цикл REPEAT, вывести ** экран первые N членов последовательности: 1, 3, 7, 15,...

Question

Используя цикл REPEAT, вывести на экран первые N членов последовательности: 1, 3, 7, 15, 31, 63, 127... (Turbo Pascal)

Answer 1

Var
  k, N: Integer;
begin
  Write("N = ");
  ReadLn(N);
  k:=1;

  Repeat
    Dec(N);
    k:=k * 2;

    WriteLn(k - 1);
  Until (N < 0)
end.