(Паскаль)написать программы, которые заполняют массив числами с арифметической прогрессией и

А1=1,А2=2 и тд.

А2+1

Тоесть

Const
   N = 13;
Var
   A:array[1..N] of integer;
   i:integer;
Begin
Write('Ряд естественных чисел:');
For i:= 1 to N do
    Begin
    A[i]:=i;
    Write(' ',A[i])
    End;
End.



Const
   N = 13;
Var
   A,B,C:longint;
   i:integer;
   M:array[1..N] of longint;
Begin
A:=0;
B:=1;
M[1]:=1;
For i:= 2 to N do
    Begin
    A:=B+A;
    M[i]:=A;
    C:=A;
    A:=B;
    B:=C;
    End;
For i:= 1 to N do
    Write(M[i],' ');
End.