Дан массив А размерности 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;beginrandomize;writeln('First array:');for i:=1 to 8 do begin;  ar[i]:=random(10);  write(ar[i]:4); end;i:=0;repeati:=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 dowrite(ar2[i]:4);end.