язык Pascal ABC. Напишите программу:
Дан двухмерный массив A[1..m,1..n]. Написать программу построения одномерного массива B[1..m], элементы которого соответственно равны суммам элементов строк.

const m=100; n=100;vara:array[1..m,1..n]of integer;b:array[1..m]of integer;i,j:integer;beginfor i:=1 to m dofor j:=1 to n do a[i,j]:=random(200)-100;for i:=1 to m dob[i]:=0;for i:=1 to m dofor j:=1 to n dob[i]:=b[i]+a[i,j];for i:=1 to m dowrite(b[i],' ');end.