For i: =0 to 10 do a[i]: =i*2; for i: = 10 downto 0 do begin k: =a[10-i]; a[10-i]: =a[i]; a[i]: =k; end.

1)
полученные числа:
0 1 2 3 4 5 4 3 2 1 0
2)
 10
 3)
10 9 8 7 6 5 4 3 2 1 0 
 4)
10 9 8 7 6 5 6 7 8 9 10
  5)
полученные числа: 
1 0 3 2 5 4 7 6 9 8 10