подсчитайте сумму элементов каждой строки массива целых чисел 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.