Сдвинуть все элементы массива на одну позицию вправо (циклически). Последний элемент должен оказаться на месте первого.В ПАСКАЛЕ

var i:integer;x:array[1..5]of integer;begin for i:=1 to 5 dobeginif i<>5 then read(x[i+1])else read(x[1]);end;end.Самое простое решение-считывать сразу в сдвинутом состоянии.