C :

#include <stdio.h>

int main()
{
	int i,n,x,a[1001]={0};
    scanf("%d",&n);
    for (i=1;i<=n;i++)
		scanf("%d",&a[i]);
    scanf("%d",&x);
    printf("%d",a[n-x+1]);
    for (i=n-x+2;i<=n;i++)
		printf(" %d",a[i]);
    for (i=1;i<=n-x;i++)
		printf(" %d",a[i]);
    printf("\n");
	
	return 0;
}

C++ :

#include<iostream>
#include<cstdlib>
using namespace std;
int main()
{
	int n;
	cin>>n;
	int a[110];
	for(int i=1;i<=n;i++)
	    cin>>a[i];
	int t,x;
	cin>>x;
	for(int i=1;i<=x;i++)
	{
		t=a[n];
		for(int j=n;j>=2;j--)
			a[j]=a[j-1];
		a[1]=t;
	}
	for(int i=1;i<=n-1;i++)
		cout<<a[i]<<' ';
	 cout<<a[n];
	//system("pause");
	return 0;
	
}

Pascal :

var a:array[1..100]of integer;n,i,k:integer;
begin
 readln(n);
 for i:=1 to n do
  read(a[i]);
 readln;
 readln(k);
 for i:=n-k+1 to n do
  write(a[i],' ');
 for i:=1 to n-k-1 do
  write(a[i],' ');
 writeln(a[n-k])
end.