Подсчитайте сумму элементов каждой строки массива целых чисел X[1:3,1:2](составить алгоритм и блок-схему)

var a: array [1..100,1..100] of integer; n,m,s,i,j:integer; Begin     read(n,m);     for i:= 1 to n do         for j:= 1 to m do             read(a[i,j]);     for i:= 1 to n do begin         s:=0;         for j:= 1 to m do             s:=s+a[i,j];         writeln('S[',i,'] = ',s);     end; End.