Gilbord Type TMas=array[1..3, 1..2] of integer;
var mas:TMas;
    i, j:byte;
    s:integer;

begin
randomize;
s:=0;
for i:=1 to 3 do
 begin
 for j:=1 to 2 do
  begin
  mas[i, j]:=random(100);
  write(mas[i, j]:4);
  end;
 writeln;
 end;
for i:=1 to 3 do
 begin
  for j:=1 to 2 do
  s:=s+mas[i, j];
 write('summa ', i, ' stroki=', s);
 writeln;
 s:=0;
 end;
writeln;
end.