Viết chương trình tính tổng tích các biểu thức S = 1*1 + 1*2 + … + 1*10 + 2*1 + 2*2+…+ M*N

uses crt;
var m,i,j,kq:longint;
begin
        write('Nhap m: '); read(m);
        for i:= 1 to m do
                for j:=1 to 10 do
                        kq:=kq+(i*j);
        clrscr;
        write('Tong s la: ',kq);
        readln;
end.

program oken;
uses crt;
var n,i,j: integer;
    s: qword;
begin
        clrscr;
        write('nhap so n: '); readln(n);
        s:=0;
        for i:=1 to n do
           for j:=1 to 10 do
              s:=s+i*j;
        writeln('S=',s);
        readln;
end.