Оформить задачу на языке Паскаль - Элементы массива а циклически сдвинуть на 1 позицию влево, а первый и последний элементы поменять местами.

var ar:array[1..10] of integer; i,c:integer; begin randomize; writeln('First array:'); for i:=1 to 10 do  begin;   ar[i]:=random(30);   write(ar[i]:4);  end; for i:=2 to 10 do  ar[i-1]:=ar[i]; c:=ar[1]; ar[1]:=ar[9]; ar[9]:=c; writeln; writeln('Final array:'); for i:=1 to 9 do write(ar[i]:4); end.