Создайте и распечатайте в строчку одномерный массив, длиной n, следующим образом: а(1)=14, а(2)=15, а(3)=16, а(4)=-17, а(5)=-18, а(6)=-19, а(7)=20, а(8)=21, а(9)=22, ?

Const n=15; 
var a:array[1..n] of integer;
z,i:integer; 
begin
Randomize;
writeln('Массив A:');
z:=-1;
for i:=1 to n do
 begin
 if i mod 3 = 1 then z:=-z;
 a[i]:=z*(13+i);
 end;
for i:=1 to n do write(' A(',i,')=',a[i]);
writeln;
end.

Пример:
A(1)=14 A(2)=15 A(3)=16 A(4)=-17 A(5)=-18 A(6)=-19 A(7)=20 A(8)=21 A(9)=22 A(10)=-23 A(11)=-24 A(12)=-25 A(13)=26 A(14)=27 A(15)=28