Составить программу, заполняющую массив из 10 элементов, с числовой последовательностью 2,3,5,9,17...

Написано на Pascal:

Program ArraySequence;
Var a: Array [1..10] Of Integer;
i: Integer;
Begin
a[0] := 2;
For i := 1 To 9 Do
a[i] := 2*a[i-1] - 1;
For i := 0 To 9 Do
Write(a[i], ' ');
ReadLn;
End.