Создайте целочисленный массив размерностью N. Введите значения элементов массивов с клавиатуры. Выполните циклический сдвиг значений элементов массива на k позиций вправо (в сторону увеличения индексов элементов). Выведите на экран значения элементов массива после выполнения операции циклического сдвига.
Примечание. При циклическом сдвиге на одну позицию значение последнего элемента массива записывается в элемент с индексом 0.

Здесь правда индексы не от нуля, но работает всё так же. Да и в паскале как-то не принято нулевые индексы делать. Можно, но не принято

varn,k,i,i2,zn,zn2:integer;a:array[1..100] of integer;BeginReadln(n,k);for i:=1 to n do Read(a[i]);zn:=a[1];for i2:=1 to k do begina[1]:=a[n];for i:=2 to n+1 do if i<>n+1 then begin zn2:=a[i]; a[i]:=zn; zn:=zn2; end;End;for i:=1 to n do Write(a[i],' ');End.