bai2

program matran;
uses crt;
var f:text;
var m,n:integer;
var i,j:integer;
var ketqua:integer;
var a: array[1..250, 1..250] of integer;

begin
clrscr;
assign(f, 'matran.int');
reset(f);

read(f, m, n);

readln(f);

for i:= 1 to m do
begin
for j:= 1 to n do
read(f,a[i,j]);
readln(f);
end;
writeln('ma tran vua doc la: ');

ketqua:=0;

for i:=1 to m do
begin
ketqua:=0;

for j:=1 to n do
begin
write(a[i,j] , ' ');
ketqua:=ketqua+a[i,j];
end;
writeln('kq: ', ketqua);
end;

close(f);
readl
end.