Зсунь елементи

Задано одновимірний масив цілих чисел довжини n. Зсунути елементи масиву циклічно праворуч на 1 крок.

Вхідні дані

У першому рядку задано кількість елементів масиву n (n ≤ 100). У другому рядку задано самі елементи масиву, значення кожного з яких за модулем не перевищує 100.

Вихідні дані

В єдиному рядку вивести через проміжок n чисел: нові значення елементів масиву.

Вхідні дані

4

1 2 3 4

Вихідні дані

4 1 2 3

program zsuv;

var h, i, last : integer;

m : array[1..100] of integer;

begin

readln(h);

for i:=1 to h do read(m[i]);

last:=m[h];

for i:=h downto 2 do

m[i]:=m[i-1];

m[1]:=last;

for i:=1 to h do

if i<>h then write(m[i],' ')

else writeln(m[i]);

end.