C++ :

#include<iostream>
using namespace std;
int a[11];
int main()
{
	for (int i=1; i<=10; i++) cin>>a[i];
	for (int i=1,j=10; i<j; i++,j--)
		{ int t=a[i]; a[i]=a[j]; a[j]=t; }
	for (int i=1; i<10; i++) cout<<a[i]<<" ";
	cout<<a[10]<<endl;
	return 0;
}

Pascal :

var a,b,c,d,e,f,g,h,i,j:longint;
begin
  readln(a,b,c,d,e,f,g,h,i,j);
  write(j,' ',i,' ',h,' ');
  write(g,' ',f,' ',e,' ');
  write(d,' ',c,' ',b,' ');
  writeln(a);
end.