{ циклический сдвиг элементов массива вправо }
var a: array[1..10] of integer;
x: integer;
i: integer;
begin
writeln('Введите 10 элементов массива:');
for i := 1 to 10 do readln(a[i]);
x := a[10];
for i := 10 to 2 do begin
a[i] := a[i-1];
end;
a[1] := x;
writeln('После сдвига:');
for i := 1 to 10 do writeln(a[i]);
end.
