Дан массив А размерности n. Сформировать массив С по следующему правилу: С[i] = максимальному из пары соседних нечетного и четного элементов массивов А. Например из А[1 3 9 6 7 3 0 2] получить C [3 9 7 2].

var ar:array[1..8] of integer; ar2:array[1..4] of integer; i:integer; begin randomize; writeln('First array:'); for i:=1 to 8 do  begin;   ar[i]:=random(10);   write(ar[i]:4);  end; i:=0; repeat i:=i+2; if ar[i-1]>ar[i] then  ar2[i div 2]:=ar[i-1]  else  ar2[i div 2]:=ar[i]; until i=8; writeln; writeln('Final array:'); for i:=1 to 4 do write(ar2[i]:4); end.