Дан массив из, состоящий из 9 вещественных чисел. Все элементы массива с четными номерами заменить на их абсолютную величину

vara:array [1..9] of real;i:integer;beginfor i:=1 to 9 do read(a[i]);a[2]:=abs(a[2]);a[4]:=abs(a[4]);a[6]:=abs(a[6]);a[8]:=abs(a[8]);for i:=1 to 9 do write(a[i],' ');end.