Используя цикл repeat, вывести на экран первые n членов последовательности: 1, 3, 7, 15, 31, 63, (turbo pascal)

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

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

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