Составить программу на языке паскаль для вычисления количества положительных элементов в матрице В(8*8)

varb: array[1..8,1..8] of integer;i, j, k:integer;beginfor i:=1 to 8 dofor j:=1 to 8 doreadln(b[i,j]); {заполнение матрицы}k:=0;for i:=1 to 8 dofor j:=1 to 8 doif b[i,j]>0 then inc(k);writeln(k,' чисел');end.