C++ :

#include<iostream>
using namespace std;
int a[4][4];
void change(int a[][4])
{
	for (int i=1; i<=3; i++)
		for (int j=i+1; j<=3; j++)
		{
			int t=a[i][j];
			a[i][j]=a[j][i];
			a[j][i]=t;
		}
}
int main()
{
	for (int i=1; i<=3; i++)
		for (int j=1; j<=3; j++) cin>>a[i][j];
	change(a);
	for (int i=1; i<=3; i++)
	{
		for (int j=1; j<=3; j++) cout<<a[i][j]<<" ";
		cout<<endl;
	}
	return 0;
}

Pascal :

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