C++ :

#include<iostream>
#include<cstdio>
using namespace std;
int a[4][4], b[4][4], c[4][4];
int main()
{
	for (int i = 1; i <= 3; i++)
		for (int j = 1; j <= 3; j++)
			scanf("%d", &a[i][j]);
	for (int i = 1; i <= 3; i++)
		for (int j = 1; j <= 3; j++)
			scanf("%d", &b[i][j]);
	for (int i = 1; i <= 3; i++)
	    for (int j = 1; j <= 3; j++)
	        for (int k = 1; k <= 3; k++)
	        	c[i][j] += a[i][k] * b[k][j];
	cout<<c[1][1]<<" "<<c[1][2]<<" "<<c[1][3]<<endl;
	cout<<c[2][1]<<" "<<c[2][2]<<" "<<c[2][3]<<endl;
	cout<<c[3][1]<<" "<<c[3][2]<<" "<<c[3][3]<<endl;
	return 0;
}

Pascal :

var
a,b,c:array[0..3,0..3]of longint;
i,j,k,l:longint;
begin
for i:=1 to 3 do for j:=1 to 3 do read(a[i,j]);
for i:=1 to 3 do for j:=1 to 3 do read(b[i,j]);
for i:=1 to 3 do for j:=1 to 3 do
for k:=1 to 3 do {for l:=1 to 3 do} c[i,j]:=c[i,j]+a[i,k]*b[k,j];
for i:=1 to 3 do begin
for j:=1 to 2 do write(c[i,j],' ');writeln(c[i,3]);end;end.