Написать программу которая сформирует массив следующим образом: a[1]=-1 a[2]=1 a[3]=-2 a[4]=2 a[5]=-3 a[6]=3 a[7]=-4

Var a:array[1..7] of integer;
ar,b,c:integer;
begin;
ar:=1;
b:=1;
for c:=1 to 7 do
begin;
ar:=-1*ar;
a[c]:=ar;
writeln(a[c]);
if ar>0 then
ar+=1;
end;
end.