В одномерном массиве 2-й элемент поставить на первое место, 3-й - на 2-оеи т. д.

1-й элемент поставить на последнее место.

var mas:array[1 ... 5] of integer; i, j, a, b, f, r:integer;

begin

for i:=1 to 5 do

readln (mas[i]) ;

writeln (mas[i]) ;

a:=mas[1];

j:=mas[2];

b:=mas[3];

f:=mas[4];

r:=mas[5];

mas[1]:=j;

mas[2]:=b;

mas[3]:=f;

mas[4]:=r;

mas[5]:=a;

for i:=1 to 5 do

writeln (mas[i]) ;

readln;

end.