type mas1=array[1..5,1..5] of integer;
mas2=array[1..5] of integer;
var m1:mas1; m2:mas2; i,s,j:integer;
begin
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
m1[i,j]:=random(10);
write(m1[i,j]:3);
end;
writeln;
end;
for i:=1 to 5 do
begin
s:=0;
for j:=1 to 5 do s:=s+m1[i,j];
m2[i]:=s;
end;
for s:=1 to 5 do
write(m2[s]:4);
writeln;
end.