2. Создайте и распечатайте в столбик одномерный массив, длиной N, следующим образом:
А(1)=-4, А(2)=5, А(3)=-6, А(4)=7, А(5)=-8, А(6)=9, … ?- Pascal(Паскаль)

Program Fun2;
uses crt;
var A:array[1..100] of integer;
     i,n:byte;
begin clrscr;
Write(' Введите длинну массива '); Readln(n);
A[1]:=-4; A[2]:=5;
for i:=1 to n do
    begin
    if (i mod 2 =0)
    then A[i]:=A[i-2]+2
    else A[i]:=A[i-2]-2;
    end;
for i:=1 to n do writeln(A[i]:3); writeln;
readln;
end.