Nếu có sai thì bạn nói mình nhé.
Program mt;
Uses crt;
Var a:array[1..200,1..200] of integer;
f1,f2:text;
m,n,i,j,s:integer;
Begin
assign(f1,'MT.INP');
reset(f1);
assign(f2,'KQ.OUT');
rewrite(f2);
readln(f1, m, n);
for i:= 1 to m do
for j:=1 to n do
read(f1,a[i,j]);
writeln(f2,m);
for i:= 1 to m do
begin
s:=0;
for j:= 1 to n do
inc(s,a[i,j]);
write(f2,s, ' ');
end;
close(f1);
close(f2);
End.