program tp6_1;
uses crt, dos;
const datos:array [1..4,1..3] of integer =( (1,2,3),
                                                             (4,5,6),
                                                             (7,8,9),
                                                          (10,11,12) );

var
suma,i,j:integer;


begin
clrscr;
for i:= 1 to 4 do
   begin
        for j:=1 to 3 do
        suma:= datos[i,j] + suma;
   write (datos [j,i]);
   end;
   writeln;
   write ('La sumatoria de todos los elementos de la matriz es:', suma);
   readkey;
end.

write (datos [i,j]);