uses CRT;
const
     n=5;
     m=4;
type mtr=array[1..n,1..m] of integer;
function matrix(var a:mtr): integer;
var
   i,j:integer;
begin
     Writeln('Матрица');
     for i:=1 to n do begin
     for j:=1 to m do begin
         a[i,j]:=random(100);
     Write(a[i,j]:4);
     end;
     Writeln;
     end;
end;
procedure summa(a:mtr);
var
   i,j,s:integer;
begin
     Writeln('Суммы в строках');
     for i:=1 to n do begin
     s:=0;
     for j:=1 to m do
     s:=s+a[i,j];
     Write(s:4);
     end;
end;
var
   Arr:mtr;
begin
clrscr;
Randomize;
matrix(Arr);
summa(Arr);
Readln;
end.