gistfile1.pas

var arr: array [1..10000] of integer;
    n, i : integer;
begin
readln(n);
for i:=1 to n do
    read(arr[i]);
for i:= 1 to (n div 2) do
    begin 
    arr[n-i+1]:= arr[n-i+1] + arr[i];
    arr[i]:= arr[n-i+1] - arr[i];
    arr[n-i+1]:= arr[n-i+1] - arr[i];
    end;
for i:=1 to n do
    write(arr[i],' ');
end.