C :

#include <stdio.h>
#include <stdlib.h>

int f1(int a[3][3])
{
    int i,j,tmp;
    for(i=0;i<3;i++)
    for(j=0;j<3;j++)
    {
        if(j>i)
        {
            tmp=a[i][j];
            a[i][j]=a[j][i];
            a[j][i]=tmp;
        }
    }
    for(i=0;i<3;i++)
    {
      for(j=0;j<3;j++)
      {
        printf("%d ",a[i][j]);
      }
    printf("\n");
    } 
    return 0;
}
int main(int argc, char *argv[])
{
    int i,j,a[3][3];
    for(i=0;i<3;i++)
    for(j=0;j<3;j++)
    scanf("%d",&a[i][j]);
    f1(a);
    

  return 0;
}

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 i,j:integer;
    a:array [1..3,1..3] of integer;
begin
  for i:=1 to 3 do
   for j:=1 to 3 do 
   read(a[i,j]);
   for i:=1 to 3 do
   begin
    for j:=1 to 3 do
    write(a[j,i],' ');
    if j=3 then writeln;
   end;
end.