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

var mas: array[1… 5] of integer; i,j,a,b,f,r: integer; beginfor 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 dowriteln (mas[i]); readln; end.