C :

#include <stdio.h>

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

C++ :

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

}

Pascal :

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