// PascalABC.NET 3.0, сборка 1088
begin
var a: array[0..10] of integer;
for var i := 0 to 10 do A[i] := i;
var t := A[0];
for var i := 1 to 10 do A[i - 1] := A[i];
A[10] := t;
writeln(a)
end.
Результат выполнения программы:
[1,2,3,4,5,6,7,8,9,10,0]
Ответ: В)