1) Дан двумерный массив. Найти сумму элементов в строках c k1 до k2

type matr=array[1… 20,1… 20] of integer; function Summa (a: matr; m,k1,k2: byte): integer; var i,j: byte; s: integer; begins: =0; for i: =k1 to k2 dofor j: =1 to m dos: =s+a[i,j]; Summa: =s; end;