Дан массив а размерности 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.