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

Const   N = 13;Var   A:array[1..N] of integer;   i:integer;BeginWrite('Ряд натуральных чисел:');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;BeginA:=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.