procedure Funcion1(parametro1:integer;parametro2:integer);begin
writeln('la suma de los dos es ',parametro1+parametro2);
end;
type
Tmatriz=array [1..3,1..3] of integer;
procedure mostrarArreglo(datos:Tmatriz);
var
i,j:integer;
begin
for i:=1 to 3 do
begin
for j:=1 to 3 do
begin
write(datos[i,j],' '); end;
end;
end;
var
valor1,valor2:integer;
matriz:Tmatriz=((11,22,33),(1,4,5),(9,87,1));
begin
valor1:=10;
valor2:=3;
Funcion1(valor1,valor2);
mostrarArreglo(matriz);
readln;
end.