Ma trận pascal Viết chương trình làm một ma trận pascal Gồm m hàng và n cột In ra số tổng của mỗi cột và tổng của mỗi hàng Đề thi hsg môn tin của Huyện xuân trường,tỉnh Nam định năm 2019 (Hôm nay mình mới thi nhưng không làm được bài,mình mong có đáp án để làm bài thôi,các bạn không cần vội,chỉ cần làm đúng giùm mình )

uses crt;
var a: array [1..1000,1..1000] of longint;
    i,j,m,n,sum:longint;
begin
        clrscr;
        read(m,n);
        for i:=1 to m do
                for j:=1 to n do
                        readln(a[i,j]);
        for j:= 1 to n do
                begin
                        sum:= 0;
                        for i:= 1 to m do
                        sum:=sum + a[i,j];
                        Write('Tong cot: ',sum);
                end;
        for i:= 1 to m do
                begin
                        sum:= 0;
                        for j := 1 to n do
                        sum:=sum + a[i,j];
                        Write('Tong hang: ',sum);
                end;
        readln;
end.