Program P79;
 { Suma componentelor variabilei m de tip Matrice }
type Matrice=array[1..3, 1..4] of real;
var m : Matrice;
    i, j : integer;
    s : real;
begin
 writeln('Daţi componentele m[i,j]:');
 for i:=1 to 3 do
   for j:=1 to 4 do
     begin
       write('m[', i, ',', j, ']=');
       readln(m[i,j]);
     end;
 writeln('Aţi introdus:');
 for i:=1 to 3 do
   begin
     for j:=1 to 4 do
       write(m[i,j]);
     writeln;
   end;
 s:=0;
 for i:=1 to 3 do
   for j:=1 to 4 do
     s:=s+m[i,j];
 writeln('Suma=', s);
 readln;
end.