Водномерном массиве а=(а1, ) отрицательные элементы, имеющие четный порядковый номер, переписать в начало массива.

Var
a: array[1..6]of integer;
i,m: integer;
begin
for i:=1 to 6 do 
read(a[i]);
writeln(' ');
For i:=2 to 6 do
if (a[i]<0) and ((i mod 2) =0) then
for m:=i downto 2 do
swap(a[m],a[m-1]); for i:=1 to 6 do
write(a[i]:2);
end.
abc pascal