program Matrix1;
var
j,i:integer;
Sum:integer;
a: array [1..5,1..5] of integer;
begin
// Решение
 for i:=1 to 5 do begin
 for j:=1 to 5 do a[i,j]:=i+j;
 end;
// Ответ
writeln;
writeln('Ответ');
 for i:=1 to 5 do begin
 writeln;
 Sum:=0;
 for j:=1 to 5 do begin write(a[i,j],' '); inc(Sum,a[i,j])end;
 write('сумма строки = ',Sum);
 end;
end.