Параграф 8 номер 8

Краткое условие: Одномерный целочисленный массив из семи элементов: результат преобразования по алгоритму: for i:=1 to n div 2 do begin r:=a[i]; a[i]:=a[n-i+1]; a[n-i+1]:=r end;